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DECLARATIONS 
IRP = COR Y cone lacancy Check 
— — INITIALIZATION/REINITIALIZAT *. ROUTINES ----- 
DUTUSCREATE_CDDB - cregte and initialize a CODB 
BUTUSFOLL FOR_UNITS = Poll a server for it ailable units 
DUTUSUNITINIT™= Class ar ver unit initial Set len routine 
DUTUSFAILOVER_UCB = Failover a single UCB 
DUTUSFAILOVER_IODB = Update DDB I/ 8 after a failover 
eaeacae NEW UNIT ROUTINE eecesn 
DUTUSNEW_UNIT = —— a possible new unit 
DUTUSLOORUP_UCB = Locate a given MSCP unit on given CDDB chain 
DUTUSSETUP poyAL PATH - Reflect dual path access in 1/0 database 
DUTUSFIND_BDB -"Find 2 create a DDB with the right t DEVNAM 
T3 SEC_UCB = Link UCB $9 secondar DOB cgere 
USLINK VER SEC, UCB. = Link a UCB into a cboe chain 


Def oy tf rae vee a and device type tables 

DUTUS - Form new unit device name, DDCn 

SUTUSCET- DEVIN PE - Translate media-id to a device type 

DUTUSINIT CONN_UCB = Initialize connection — PCB fields 

DUTUSSETUPE CoP “UCB = Setup remote/local dual pathed device 

saw pet nitions 

DUTUSCANCEL = Cancel 1/0 Routine for class drivers 

SEND_ABORTS = Send ABORT commands for active MSCP requests 

BUTUSCHECK mT Me = Check for no similar cancel requests 
TUSBUILD-CANIO_CDRP = Allocate & Initialize a cancel-CDRP 

DUTUSCANCEL | ROTWAIT = Cancel a thread on the RDT wait queue 

DUT UstANeet “RDT = Re a thread holding a RSPID 

BY Tust ; Est ERNC L_DONE = Test for completed cancel operation 


E 

UTUSO! CONNECT CANCE - Do disconnect cleanup for cancels 
DUTUSEND_CANCEL = Finish a cancel operation 
DUTUSCLEANUP_CANCEL = Cleanup a cancel operation 
DUTUSTEST_CARCEL_CDRP = Should a CDRP be canceled 
=ecee GENERAL SUPPORT ROUTINES ----- 
DUTUSRESET MSCP_MSG - Reset MSCP command packet 

TUSINIT_ASCP_ASG_UNIT - init alize a MSCP hessege w/ unit number 
DUTUSINIT_MSCP_MSG = Initiali z¢ a MSCP message 
DUTUSSEND_DRIVER_MSG = Send driver internal Besenge to MSCP server 
DUTUSSEND_MSCP_MSG = Send command message to MSCP server 
DUTUSINTR-ACTION_XFER = Interpret transfer action table 
DUTUSINTR_ACTION_N = Interpret non-transfer action Sante 
DUTUSRES TORE CREDIT = Restore allocate meosage cred 
DUTUSINSERT_RESTARTQ - Insert gutstend ng CORP in a BE queue 
DUTUSRECONN_LOOKUP = Reconnect $ Looku 2* Routine 
DUTUSDRAIN CDDB_CDRPQ = Drain Active CDRPs 
DUTUSTERMIRATE PENDING = Fail pendin requests. ** SS$_VOLINV 
DUTUSDEALLOC_ACL = Deallocate all sc 
puTusPost cb RSPID_MSG - pee) Locate $cs *RSPlD. ond msg. buf. 
DUTUSPOST_CDRP - 8 ue CDRP for post processing 
DUTUSKILL“THIS_T 


HREAD = Fix thread cevant by async. conn. failure 

put CHECR_RWATTCNT = Validate —8 RWALTCNT 

DUT 06 0CRD - Error log an invalid MSCP command 

DuT = Do TehtES unit” Access Paths Process ing 

E 4: = Send duplicate unit message to operator 

oy 4 4 to diagnostic buffer 

ony MS one peasage to diagnostic buffer 
la ye é 


UTUSDUMP bag 
BUTUSFILL UARSEP ng onse - lero L nce 334 
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> FACILITY: 

: MSCP Disk and Tape Class Drivers 

> ABSTRACT: 

: This module contains subroutines used by both the MSCP disk and tape 

3 class drivers. 

> ENVIRONMENT: 

: This module is Linked into both the DUDRIVER and the TUDRIVER. The 

3 routines herein are called by those drivers as needed. See individual 

: routine descriptions for interface details. 

ay | 
; AUTHOR: Ralph 0. Weber, CREATION DATE: 7-AUG-1983 
> MODIFIED BY: ; | 
; V04-001 ROW0416 Ralph 0. Weber 14-SEP-1984 
: Make DUTUSNEW_ UNIT Tonere requests to create a unit 4095. 

: vais will prevent creating units for sprious messages from the 
: V03-039 ROW0412 Ralph 0. weber 21-AUG=1984 | 
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yy ugcheck issued when more than three paras are 
for a ngte e device for INCONSTATE to IVDSKCONFG, au disk 
cont {gure on. This is a temporary measure to make the error 
condition more clear and is expected to be fixed better in a 


future version. 


V03-038 ROW0404 “eS ye x 23-JUL-1984 
Fix race ——— etween 2P device configuration and unit 
failover. This eliminates attempts to failover units which 
are not fully dual-path configured. 


V03-037 ROW0401 eats Weber 21-JUL-1984 

—** DUTUSCREATE DDB. 3 that attempts to have two CDDBs for 
the same systen=i¢" on the same device class (disk or tape) 
result in the second CDDB and all related structures t tak 
deallocated back to pool and no second connect attempt taking 
place. This eliminates exteranous paths to a device in the 
event that SYSGEN or a user of SYSGEN attempts to ‘‘connect"’ 
multiple times to the same remote server. 


Clear the DEVSV_AVL bit in ali CDP UCBs. This prevents 
allocating of or assigning a channel to such devices. Thus, 
the devices become even more completely unusable which is the 
desired goal. 


v03-036 ROW0400 glee e Weber 21-JUL-1984 
Enhance DUTUSFAILOV R_UCB so that changes to the 1/0 database 
which must be done with write access to the 1/0 database mutex 
are done in a separate fork thread. This fork thread uses a 
separate fork prgck — is part of the CDDB which the 
* * —— fail ing away from. This eliminates the need to 

write access to the I/0 database mutex before ye 

DOTUSTAILOVER _UCB and prevents stalling 1/0 requests due to 
lack of access to the mutex. Since such requests can no 
longer stall, it is no Longer possible to get a deadlock when, 
for example process holdi the mutex must perform a page 
fault read la” order to complete and release the mutex. 


v03-035 ROW0395 *38 Weber 20-JUL-1984 
eter wee of DAP™ CDRP by DUTUSPOLL -FOR_UNITS. Also build 
orrect coordination of DAP CDRP usage “between 
SUTUSPOLL. FOR ‘UNITS ond DUTUSDODAP. 
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v03-034 ROW0390 Ralph 0. Weber 20-JUL-1984 
Fix DUTUSGET DEVNAR’ so that the fontrot ler letter is the one 
choosen by SYSGEN. Previously, ‘ was used, regardless of 
what was correct. 
8 v03-033 ROW0388 Ralph 0. eee 8-JUL-1984 
Add adjustment of wait counter for status of newly used 


connection to DUTUSTAILOVER UCB. this function — vas 
performed by ou, END_MNTVER, but some race conditions exist 
which require that Ehe adjustment be made after every 
successful failover. 


7=JUL=1984 


v03-032 ROW0387 oiph 6 Weber 
Add DUTUSRECONN_ 80 UP, oo proken connection processing 
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action routine for both the RSPID-wait lookup SCS gory tee ane 
the ROT Lookup SC 
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S serivce. ~ od D ay ep CDDB_CDRPQ 
routine which removes all entr n the COBDBs active tor 
queue and places them in the restart abe 


v03-031 ROW0380 Ralph 0. Weber 22-JUN-1984 
Add error FOR UNIT Tor case vrere DUTUSNEW_UNIT call in 
DUTUSPOLL FOR_UNITS cannot allocate memory for new UCB. Error 
ee Ts tO restart pool from the beginning. 


v03-030 R h 0. Weber 17-MAY-1984 
te 4 “tor —*14 Baer to pe ust uate count when 10$ —— is 
tae with UCBSV_MSCP_PKACK set, or when I0$_SETCHA 
MODE are posted” with UCBSV_TU_SEQNOP set. this’ ‘s an 
outtagous hack, but it cannot be doné correctly until after 
ps. 


V03-029 ROW0362 Ralph 0. Weber 7-MAY-1984 
Fix stack usage —— in —XE 25 We were pushing more 
onto the stack than we were poping off. 


v03-028 ROW0361 Ralph 0. Weber 5-MAY-1984 
Add DUTUSDODAP, the” common disk/tape class driver routine for 
sending Determine Access Path commands. This version of the 
DAP gorgee is designed not to have multiple thread forking on 
one ° 


v03-027 ROW0360 oe Weber 5-MAY-1984 
Add testing of utes _MSCP_ WPRACK to DUTUSCHECK_RWAITCNT. 


V03-026 LMP0235 Mark Pilant, 17-Apr-1984 13:59 
Add a template ons that is hooked up to the template UCB 
just prior to creating a new UCB and ORB from the templates. 


V03-026 ROW0344 Ralph 0. Weber 11-APR-1984 
> Change DISKCLASS ond some INCONSTATE bugchecks to MSCPCLASS. 
> Correct method for obtaining 1/0 database access in 
DUTUSFIND_DDB to prevent race Congr — bel loved responsible 
for multiple DDBs per controller Lette 
> Correct fork thread handling bugs in DUTUSRESTORE CREDIT. 


v03-025 Rouoʒ Rolph 0, Weber 8-APR-1984 
Add generat ized valid command" processing support. 
Specifically, add DUTUSLOG, IVCMD. 

V03-024 ROW0338 als ph 198 Weber 7-APR-1984 
Add s support t for D in pace in the form of two subroutines, 
DUTUSINTR_ACTION_ OER. 7 DUTUSINTR_ACTION_N 

v03-023 ROW0337 Ralph 0. Weber 7-APR-1984 


Alter LINK_NEW_ uce fo account "tor disappearance of 
UCBSL_CANLINK.~ 


v03-022 —* Ralph 4-APR-1984 
Add DUTUSUNITINIT. : A, 8* 8* —— peutine ubteh deletes 
the bogus UCBs created by SYSGEN and still keeps useful UCBs 
after a power failure. 
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V03-021 ROW0334 Ralph 0. Weber 3-APR=-1984 
Add initialization of UCBSL_MAXBCNT based upon value found in 
PDTSL_MAXBCNT to LINK_NEW_UCB and LINK 2P_UCB 


v03-020 ROW0333 Rolph 0. Weber 30-MAR-1984 
Correct DUTUSRESET_MSCP_MSG to handle the pegs tort ity that 
pec yet AyS Tu may discover a broken connection. This is done 
by ees ng to DUTUSKILL_THIS_THREAD whenever and error is 
encountered. 


v03-019 ROW0331 Ralph 0. Weber 26-MAR-1984 
ove all major CANCEL support routines to DUTUSUBS. 
some sanity checks in DUTUSINSERT_RSTARTQ and DUTUSPO 


v03-018 ROW0329 Ralph 0. Weber 22-MAR-1984 

Liminate toggling of UCBSV_FLOVR in DUTUSFAILOVER_UCB. The 
nformation is no longer used else where in the class drivers. 
Also all failover if destination path is CDDBSV_RECONNECT or 
CODBSV_RSTRTWAIT. Because of some connection failure 
scenarios, it is important to allow a failover back to a 
prewreuts? tested path when that path is still reconnecting 
ut has a working connection. 


V03-017 ROW0327 Bolen 0. Weber 21-MAR-1984 
Change DUTUSSETUP_CDP_UCB so that it never declares a class 
driver UCB to be a CDP uCcB. 


v03-016 ROWC325 Ralph 0. Weber 19-MAR-1984 
Remove references to UCBSL_MVIOQFL and UCBSL_MVIOQBL. This 
queue header is no longer used. Also change system device 
unit number check in DUTUSPOLL_FOR_UNITS to use UCBSW_MSCPUNIT 
instead of UCBSW_UNIT. 


v03-015 ROWO312 Roles 0. Weber 26-F EB-1984 

Change DUTUSGET_DEVTYPE to return a device type equivalent to 

gl evice name choosen by DUTUSGET_DEVNAM when UCBSL_MEDIA_ID 
ero. 


v03-014 ROW0309 Ralph 0. Weber 3-F EB-1984 
Get CODB address setup for call to DUTUSSETUP_CDP_UCB in 
LINK_NEW_UCB. On that same page, stop using R2 as the UCB 
base address. Use R5 instead. 2 gets corrupted by 
DUTUSSETUP_CDP_UCB. 


v03-013 ROW0304 Ralph 0. Weber 12-F EB-1984 
Fix three bug discovered while testing the new mount verifica- 
tion oriented failover: 
- Do not allow failover to a CDODB with CDODBSV_RSTRIWAIT set. 
- Copy new CRB address into a failed-over UCB. 
- i OCSLINK_UCB reports a duplicate unit number in 
d 


Also add 
ST_CDRP. 
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NK_NEW_UNTT, deallocate the working UCB. Clearly, two 
threads got started for the same unit and the current one 
got there last. This change also requires that all 
Operations which “Link” the working UCB to the rest of the 
1/0 database MUST occur after the call to iOC#! INK_UCB. 
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v03-012 Rovozoo I 0. Weber 9-F EB-1984 
Add toggling of UCBSV_MSCP_FLOVR to TUTUSFAILOVER_UCB. 
v03-011 ROW0298 R 0 b 9-F EB-1984 


lph 0. Weber 
Setup use of CDRPSW ENDMSGS17 to hold the size of an incomming 
sequenced message. This replaces use of CDRPSL_IOST2+2 whose 


use causes valuable input information to be overwritten. 


v03-010 ROW0297 Belen U. Weber 7=F EB-1984 
Add test for UCBSV_TU_SEQNOP as reason to bump wait count in 
DUTUSCHECK_RWAITCNT. 


v03-009 ROW0295 Ralph 0. Weber 6-F EB-1984 
Add DUTUSCHECK_RWAITCNT, a routine which validates 
UCBSW_RWAITCNT and bug checks if it is wrong. 


v03-008 ROW0293 —— 0. Weber 4-F EB-1984 
Setup use of INIT_MSCP_MSG in DUTUSPOLL_FOR_UNITS. Remove 
references to the unused CDDBSL_CONNQFL and CDDBSL_CONNQBL. 


v03-007 ROW0286 Ralph 0. Weber 22-JAN-1984 

dd the following routines: 

> DUTUSTEST_CANCEL_CDRP which tests a CDRP and determines 
whether or not it should be canceled. 

> DUTUSKILL_THIS_THREAD which temporarily terminates a 
thread caught by an inopportune connection failure. 

> DUTUSINSERT_RESTARTQ which handles first pass inserting 
CORPs sate the restart queue during connection failure 
processing. 


v03-006 ROW0284 Ralep 0. Weber 19=JAN-1984 
Change handling of CDDBSL_ORIGUCE to guarantee that it is the 
system device UCB and to Rand craft a mount verification style 
IO$_PACKACK IRP which brings the unit online. It might be 
argued that this code belongs only in the disk class driver. 
However, with the plans to permit booting from a MSCP tape 
disucssed recently over lunch, it seems unwise to prohibit 
tapes from performing this function. 


v03-005 ROW0279 Ralph 0. Weber 14-JAN-1984 
Make changes —— to support use of mount verification 
after a connection failure to bring previous ty online units 
back online. This involves eliminating DUTUSFAILOVER which is 
no Longer used, testing CDDBSM ailover preventer 
in DUTOSFAILOVER UCB setting 
and setting CDRPSM_PE 


n CODB_INIT-PRM_CORP. Add the 
DuTUSDE RE Pout ines? DUTUSTERAINATE PENDING, DUTUSPOST CDRP 


PARED AAAs & BB BB BEE EAN AI 


DUTUSDEA 
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v03-004 ROW0269 Ralph 0. Weber 28-DEC-1983 
Add DUTUSCREATE_CDDB, a common routine to create, initialize, 


and Link a CDDB. 
v03-003 ROW0262 Ralph 0. Weber 24-NOV-1983 
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Move all * lookup one ce creation to DUTUSUBS. oe aup 
ATTN aes — SIDR. Implement usage 0 f SDUTUDEF, 
oc dev * inn ent UCB tielés. and the L_DU_CDDB 
Listhead. 2 addition of the following néw 
routines to this module 
S ours A ny FOR _UNITS = to poll a server for available units. 
DUTUSNEW_ONIT™= to process unit available attention or get 
ot — end messages and create new UCBs where 


DUTUSSETUP. DUAL_PATH = to check for and where appropriate 
get TUBL.60 cual spat Linkage to a device. 
UCB = to locate a UCB on a given CDDB chain 
2 give A MSCP unit number 
ae T wats UCB = to initialize connection dependent 
Le 


FIND - to locate or create a desired DDB 
T —5* = to determine VMS lectes type from MSCP 
med 2.28 dentification. 

USGET_DEVNAM - to build a VMS DDCn: device name from 
CP unit number and MSCP media identification. 
DUTUSSE TUE” CDP_UCB = to locate and setup local/remote dual 


ed UCBS. 
Botussens > =DUPLICATE ety - to send a duplicate unit number 
ren eee _MSCP Smee - zere fill an incoming MSCP message. 


v03-002 —x.. Ralp 7 0. Weber 22-NOV-1983 
Build common versions of DUMP_COMMAND (DUTUSDUMP_COMMAND) and 
** ENDRESSAGE (DUTUSDUMP- ENDMESSAGE) so eh those routines 
—2 removed from the class drivers. Addt 
DUTUSSEND_MSCP_MSG routine. 


V03-001 ROW0231 Ralph 0. Weber 1-0CT-1983 
Split failover for a single U CB out of DUTUSFAILOVER * 
seperate routine DUTUSFA LOVER UCB. This will allow 
PACKACK operation to failover & single UCB while ——— to 
find a path that works to a device. Also create an 
independent routine DUTUSSEVER. cba to sever CDDB Linkages. 


~NOo 


OOooooo 
Soooo°oo 


ö00000 


"TF VV Ve V⏑ — 
Zz oo 
cc *2 
aH 
Cc 
on 
o~” 


RINMPINNIN 4 2 2 OO | MH QOOOOOOCOCOCOCOOOOoOoOoOoOooO 
MEW ⏑ WIN $0 WWI 0 OONOU EWN 0M 


SOOO SCOSOOOOSOSOOSOOSOOOOOOOoOOoO 
SOOoOooooooooooooooooooooosoo 
2—2—2—————— 
OO0SOOIOOIDOOIOOIOSIDOSOISOSOIOSAO)ISS]S0O 


— — — — — — — — — — — — — — — — — — — — ——— —— ——— — — — — — 


G 2 
DUTUSUBS DISK/TAPE CLASS DRIVER SUBROUTINES 16-SEP-1984 00:53: AX/VMS Macro v04-00 Page 
—WB DECLARATIONS is — E= 1382 90:33.94 YORIVER. SREJSUTUSUBS MAR: 2 . 
7 -SBTTL DECLARATIONS 
: 3 INCLUDE FILES: 
1 SCDDBDEF sDefine CODB offsets 
¢ SCORPDEF sDefine CORP offsets 
SCOTDEF sDefine COT offsets 
4 SCRBDEF sDefine CRB offsets 
5 SOCDEF sDefine device classes & types 
§ SDDBDEF sDefine DOB offsets 
SDDTDEF sDefine DOT offsets 
8 SDEVDEF sDefine DEVICE CHARACTERISTICS bits 
SDYNDEF :Define DYN symbols 
8 40 SEMBLTDEF Define EMB Log Message Types 
8 41 $F KBDEF sDefine FKB offsets 
8 4g SIODEF :Define 1/0 function codes 
00 4 SIPLDEF sDefine IPL levels 
B08 44 SIRPDEF :Define IRP offsets 
00 45 SMSCPDEF sDefine MSCP packet offsets 
0000 #6 SMSGDEF Define system message types 
0000 4 SMTXDEF sDefine MUTEX offsets 
0000 48 SPBDEF sDefine Path Block offsets 
0000 49 SPCBDEF :Define PCB offsets 
0000 50 SPDTDEF :Define PDT offsets 
sit 51 SPROEF Define preceager register numbers 
00 26 SRCTDEF sDefine RCT offsets 
000 5 SSBDEF sDefine System Block offsets 
88 54 SSSDEF sDefine System Status values 
000 55 SUCBDEF sDefine UCB offsets 
0000 56 SVCBDEF sDefine VCB offsets 
88 3 SVECDEF sDefine VEC offsets 
444 59 SDUTUDEF sDefine common class driver CDDB 
8 99 3 extensions and other common symbols 
$00 8 
000 63 ; 
88 ee ; PSECT DEFINITIONS TO LOCATE THE DATA REGION 
0000 09 $6 -PSECT $$$220_DUTU_DATA_00 RD,WRT,EXE,LONG 
8 6 DUTUSDATA:: sLocate base of data region 


9 > MODULE PSECT 


7? 
? -PSECT $$$115_DRIVER LONG 


75 ; 
6 ; MACROS: 
7 3 
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The contents of two data items of the specified length (8,W,L,Q) 
are exchanged. 


Inputs: 


ASS DRIVER SUBROUTINES ° 16-SEP-1984 00:53:02 YAX/vMS Macro, v04-00 Page 4, 


Al lst argument data item (cannot be RO or R1) 
A2 2nd argument data item (cannot be RO or R1) 


Implicit inputs: 
None. 
Outputs: 
Al and A2 are switched. 
Implicit outputs: 
RO is destroyed. R1 is destroyed if length = Q. 
ALL other registers are preserved. 
-MACRO SWITCH al, a2, length=L 
MOV" Length’ ai, RO 


MOV’ Length’ a2, al 
MOV" Length’ RO, a2 
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TUSUBS DISK/TAPE CLASS DRIVER SUBROUTINES 16-SEP-1984 00:53: AX/VMS Macro V04-00 Page 9 
—W IRP = CDRP Consistancy Check 12: — 98:30:54 DRIVER. SRC JDUTUSUBS .MAR; 2 . (2) | 
416 .SBTTL IRP = CORP Consistancy Check | 
41 | 
419 ; The ros Lewing set of ASSUME statements will all be true as long as 
2 9 ; the IRP and CORP definitions remain consistent. | 
4 ¢ ASSUME CORPSL_IOQFL-CDRPSL_IOOFL EQ IRPS$L_IOQFL 
4 ASSUME CORPSL"IOQBL-CORPSL j QFL EQ IRP$L-10QBL 
424 ASSUME CORPSW-IRP_SIZE-CDRPS$L_IOQFL EQ IRP$W_SIZE | 
425 ASSUME CORPS$B_IRP-TYPE-CDRPS$L_IOQFL EQ IRP$B_ TYPE | 
4 $ ASSUME CORPSB-RMOD-CDRPSL_IOOFL EQ IRP$B_RMOD 
4 ASSUME CORPSL-PID-CORPSL_TOOQFL EQ IRP$L_PID 
4 8 ASSUME CORPSL-AST-CDRPSL joort EQ IRPSL_AST 
4 ASSUME CORPSL-ASTPRM-CDRPSL_IOQFL EQ IRPSL_ASTPRM 
430 ASSUME CDRPSL_WIND-CDORPSL_IOQFL EQ IRPS$L_WIND 
0 431 ASSUME CORPSL UCB-CDRPSL TOOFL EQ IRP$L_UCB 
8 4 ; ASSUME CDRPSW-FUNC-CDRPSC_IOQFL EQ IRPSW_F UNC 
0 4 ASSUME CORPSB_EFN-CDRPS$L_TOOFL EQ IRP$B_EFN 
80 434 ASSUME CDRPS$B_PRI-CDRP b IOQFL EQ IRP$B_PRI 
000 435 ASSUME CDRPSL~10SB-CORPSC_IOOQFL EQ IRP$L_10SB 
88 4 § ASSUME CORPSWCHAN-CDRPSL_IOQFL EQ IRP$W_CHAN 
000 4 ASSUME CDRPSW-STS-CDRP FL EQ IRP$W_ST 
0000 438 ASSUME CDRPSL_SVAPTE-CDRPSL_IOQFL EQ IRPS$L_SVAPTE 
0000 439 ASSUME CDRPSW~BOFF-CDRPSL_10QF EQ IRPS$W~BOFF 
9000 440 ASSUME CORPSL-BCNT-CORPSL_IOOFL EQ IRP$L_BCNT 
0000 441 ASSUME CORPSW_BCNT-CDRP L EQ IRP$W_BCNT 
0000 44 ASSUME CDRPSL-IOST1-CORPSC_IOQFL EQ IRP$L_10ST1 
0000 44 ASSUME CORPSL-MEDIA-CDRPSL_IOQFL EQ IRP$L_MEDIA 
0000 444 ASSUME CDRPSL_-IOST2-CDRPSL~IOQFL EQ IRP$L_10ST2 
9000 445 ASSUME CDRPSL-TT_TERM-CDRPSL_I0GFL Ea IRPSL-TT_ TERM | 
000 44 ASSUME CORP$B-CARCON-CORP QFL EQ IRP$B_CARCON 
000 44 ASSUME CDRPSQ"NT_PRVMSK-CDRPSL_IOQFL £0 IRP$Q_NT_PRVMSK 
000 448 ASSUME CDRPSL_ABCNT-CDRPSL_IOOQFL EQ IRPS$L_ABENT 
000 449 ASSUME CORPSWIABCNT-CDRPSL_IOQFL EQ IRP$W_ABCNT 
000 450 ASSUME CORPSL-OBCNT-CDRPSL_IOQFL EQ IRPS$L_OBCNT 
0000 451 ASSUME CORPSW_OBCNT-CDRPSL~IOQFL EQ IRP$W_OBCNT 
0000 $38 ASSUME CDRPSL-SEGVBN-CORPSC_IOQFL EQ IRP$L_SEGVBN 
0000 45 ASSUME CDRPSL-JNL_SEQNO-CDRPSL_IOQFL £0 IRP$L_JNL_SEQNO 
88 454 ASSUME CORPSL-DIAGBUF-CDRPSL_IOQFL EQ IRP$L_D I AGBUF 
0000 455 ASSUME CORPSL-SEQNUM-CDRPSL_TOOFL EQ IRP$L_SEQNUM 
0000 436 ASSUME CORPSL-EXTEND-CDRPS$L~IOQFL EQ IRP$L_EXTEND 
0000 45 ASSUME CORPSL_ARB-CDRPSL_IOGFL EQ IRP$L_ARB 
| 
| 
| 
| 
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LSBTTL -<=== [NITIALIZATION/REINITIALIZATION ROUTINES ----- 
-SBTTL DUTUSCREATE_CDDB = Create and initialize a CDDB 


: DUTUSCREATE_CODB = Create and initialize a CDDB 
Functional Description: 


This routine allocates pool for a disk or tape class driver CDDB, 
initializes that 2* and Links it into the appropriate CDDB chain. 
0 


DDB initialization: 
he DDB is initialized to have no UCBs chained to it. It is 
nitialized to not be on any CDDB chain. 


T 

i 

CRB initialization: 

The CRB is threaded onto the TIMELINK chain with an infinite timeout 
interval. CRBSL_AUXSTRUC is initialized to point to the CDDB. 


459 
46 
i 
i 
168 ; 
£98 ; 
268 
iss ; Some initialization the CRB and DDB, previously created by SYSGEN 
° 4°09 : or one of its kin, is also performed. 
8 33 : Inputs: 
09 ar ; RS UCB address 
8 $76 : Implicit Inputs: 
00 478 ; UCBSL_CRB(RS) CRB address 
000 479 ; UCBSL_DDB(R5) DDB address 
888 480 ; UCBSQ_UNIT_ID(R5) system ID of remote systen housing the server 
000 481 ; to which the class driver will connect 
88 UCBSL_STS(R5) if UCBSV_VALID is clear, this UCB does not 
000 485 ; represent a real device and should be discarded 
88 when it is no longer needed 
0900 4 6 ; Outputs: 
000 Bs : RS CDDB address 
000 490 ; RO through R5 are destroyed. 
000 $3) 3 ALL other registers are preserved. 
090 rh : Implicit Outputs: 
000 495 : The CDDB is completely initialized and ready for use by the class 
B88 496 ;: driver. If UCBSV_VALID in UCBSL_STS is set CDDBSL_ORIGUCB contains 
497 ; the address of the UCB. Otherwise, CDODBSL_ORIGUCB is zero and the UCB 
498 ; has been deallocated. See the preamble for DUTUSPOLL_FOR_UNITS for a 
8 discussion of boot device processing and CDDBS$L_ORIGUTB. 
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$9 
19 DUTUSCREATE_CDDB:: 
09 cS 8EDO \¢ POPL UCBSL_DPC(RS) 3; Save caller's return addr. 
51 1F F C 135 10$: MOVZWL #CDDBSK_DUTULENGTH, R1 ; Get size of a CDDB. 
0 09 5 8 A 14 JSB G*EX SACONONPAGED : Attempt to allocate space. 
0 € 10 15 BLBS RO, 20$ : Branch if allocation worked. 
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—WB DUTUSCREATE_CDDB = Create and initialize 1 —X 90:38:94 YORIVER. SRC JDUTUSUBS .MAR; 2 ’ (3) 
1 1 FORK_WAIT ; Else, wait awhile and 
EA 11 13 2 BRB 108 3 try again. 
18 i§ 20$: 3 R1 = size of allocated block 
1B 0 3 R2 - oddrese of allocated block 
18 1 ; RS = UCB addr ress, 
88 18 : PUSHR —* R2,R5> : Save registers. 
62 51 00 6€ € 001 MOVC5 (sf) #0. R1, (R2) : Zero entire block. 
BA , POPR Sack ro,R : Restore saved registers. 
6 g WAIT_FOR_I0DB ; Get write access to the 1/0 
Bee 3; database 
009c cS) «OD 4 8 PUSHL UCBSL_DPC(RS) 3 Now that “waiting is over, 
83 3 restore caller's return addr. 
049 1 R3 - size of allocated block 
049 § R4 - address . loeote⸗ block 
049 i RA - UCB addre 
08 A4 53 BO 0049 4 VW R coDaSu SIZE(R Setup CDDB size. 
04D 535 ASSUME CDbB 88 SU UBTYPE fo. coosss. rvet +i 
OA AG «0164 BF 80 565064 5 § MOVW DYN C_CLASSOR 3 Set type and subtype fields 
05 5 '<DYNST_CD CDDBa8>> - : with’ the CLASSDRV major type 
05 8 coDBSB. TYPETR4 3 and CDDS ~ type. 
53 2? pO 005 MOVL 3; Move UCB address. 
VL C ve address. 
55 4 00 3938 9 MO R4, RS Move CDDB add 
0039 543 : R3 - UCB address 
059 2? 3; RS - CODB address 
833 44 ASSUME CDDBSB_SYSTEMID+6 EQ CDDB$W_STATUS 
0c AS} 0oocc c3 7D 9 a2 . B$Q OMIT 1DtRS) «= : Record SYSTEM ID. 
12 AS 0084 8F B0 00st rth MOVW #sCODBSA INI — ; Initialize CDDB status. 
0065 if CODBSW_ STATUS (RSS 
boss 51 : Set initial earth fla es fe be used on first Set Controller 
80 26 3; Characteristics command. flags set are: 
065 5 3 = enable ATTENTION —— 
0065 54 3 - enable miscellaneous error log messages 
065 555 . - enable this hose 8 error log messages 
28 AS 00d0o 8F_ 80 065 36 Mov ais cr te 
pee 58 'MSCPSM_CF-THIS> 
6B 39 CODBSW_ CRIRCELGS<AS) 
65 65 9 68 61 MOVAB CDDBSL_CDRPQFL(R5), - : Initialize Queue Listheads. 
6¢ CODBSL- =EDRPOFL (RD) * “ ⸗ 
04 45 65 9 — 6 MOVAB CODBSL_CORPOFL(R ),° ; 
64 CODB$L~CDRPOBL (RS) * * 
3C 45 3645 9t 7 65 MOVAB CDDBSL_RSTRTQFL(RS), - 3 
tr 366 CODBSL-RSTRTQFL(R5) a i 
40 AS 3C ASME 77 6 MOVAB CDDBSL_RSTRIQFL(RS), = 3 . 
re 368 CDDBSL_RSTRTOBL (R5) © x — 
0080 (C5 0080 CS’ 9%E 7 § MOVAB CDDBSL_CANCLOFL(R5), — : 
9 CDDBSL_CANCLOFL(R5) * * 
0084 (590 0080 (5 9%E 7 MOVAB CDDBSL~  CANCLOFL(R5), = Z 
72 CODBSL~ _CANCLQBL (R5) 


Locate tg Poe CORP. 
BSBW B_IRIT_PRM_CDRP Initialize it. 

MOVAB CDDBSA_DAPCDRP(RS), R2 Locate DAP CDRP. 

BSBW lg INIT_PRM_CDORP Initialize it. 

MOVL R2, CODBSC_DAPCDRP(RS) Save DAP CORP address. 
MOVL UCB$L_CRB(R3), CDDBSL_CRB(RS) ; Save CRB address. 


52 0000 C5 > 
COD 


a 
52 eg C 6 
ee 3 
18 AS 24 A3 DO QO0A7 
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A 

ASLINE FABHB-TOPE EG SHGUY-SHIE & @  ¢ UTSSLOLSRE TRUS" he 

Py ock containe n ° 
017¢ CS 08080018 8F D0 A MOVL  a<<IPC$ SCSa24> ! — FRK|T6> - 
! FKBSK BENS Te > 
3 <FKBSW_SIZE+CDDBSA_2PFKB>(R5) 
3 MOVAB CDDBSA_PRMCDRP(RS), R2 


OAC 
Rae ; DDB initialization (and possibly UCB deallocation) 
54 28 A3 00 OOA MOVL UCBSL_DDB(R3)>, R4 : Get DDB address. 
CaS. 54 DO 008 MOVL R4, CBOBSL_DDB(RS) : Save it in CDDB. 
38 6 (0084 CLRL —- DDBSL_CONLTNK(R4) : Remove DDB from any CDDB 
O07 : chain. 
OF 64 43 0B €E0 OB? BBS #UCBSV VALID - : If UCB is valid, then this 
OBC UCBSL_STS(R35, 45$ : is the boot device. 
04 AG «624 60öt CLRL DDBSL-UCB(R4) : If UCB is not for the boot 
50 53 be OBF MOVL R3, R : device, then 
008A = 30 ce BSBW DEANONPAGED : unlink UCB from DDB 
11 11 +O C3 BRB $ : and deallocate the UCB. 
c? 43$: BUG_CHECK INCONSTATE, FATAL : Non-system disk ORIGUCB. 
53 00000000°8F 01 9 458: CMPL (a cea R3 : Is UCB for the boot device? 
3 is D BNEQ 43$ : If not, its a fatal error. 
4c aS 55 6 MOVL 3, CDDBSL_ORIGUCB(RS) : Save boot device UCB addr. 


3; Link the new CDDB on the List of all CDDBs attended by this class driver. 


The new CODB is Linked at the end of a chain of CDDBs for this 

device type (disk or tape). While searching for the end of that 
chain, the system-id of the new CDDB is compared to the system-id 

of each surepatty known CDDB. The new system-id should be unique. 
Otherwise, the class driver will make a second gennec ten to a 
remote server with which it is alread engaged nN transactions. 

when a match is found, the CDDB, the DDB, CRB, and IDB to which it 
oints will all be unlinked (as appropriate) and deallocated. All 
nowledge of the attempt to form two similar connections to the same 
server will be vaporized. 


SUBL3 #CDDBSL_CDDBLINK, - ; Initialize previous CDDB addr. 
W<DUTUSDATA + DUTUSL_CDDB_LISTHEAD>, - 
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0000°CF 00000058 oF C3 


RO, R1 Save previous CDDB address. 
BSL_CDDBLINK(R1), RO : Link to next CODD 


BEQL 3; Branch if no more CDDBs. 
ASSUME CDDBSS_SYSTEMID EQ 6 
CMPL CODBSB_SYSTEMID(RO), - : Is new system-id different 
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ppbs6_ SYSTEMID(RS) 3: from one's already in use? 
3; Branch if different. 


Page 


os 3 


105 1000 Bf 


om 


BNEQ 
CMPW CO0B$B Ba i ow bts fs -° 
DBSB_SYSTEMID+4(R5) 
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Fe \ BNEQ $ 3; Branch if different. 
A 1 BRB D ag SL} SYSTEMID : Branch if OT gh ape et oe 
58 al 55 60 59$: MOVL R5, CODBSC_CDDBLINK(R1) 3 Link new CDDB on end of List. 


: CRB initialization 


MOVL CODBSL_CRB(RS) ; Get CRB address. 


D4 CLRL =—s_- CRBSL — ; Insure access violation 
3; untill a valid timeout 
3 routine is established. 
A3 cE MNEGL CRBSL eke Line cn) : Set infinite due time 
rrr a 16 JSB o focern REA ; Thread CRB on TIMEL INK chain. 
& dO MOVL RS, CRBSL FAUXSTRUC (R3) 3 Now CDDB is aux structure. 
05 RSB ; Return to caller. 


3 Vaporize CDDB with duplicate system-id. 
DUPLICATE_SYSTEMID: 
MOVL CODBSL poe ces). RO 


50 1C AS Get DDB address. 
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04 Ag TSTL DdBSL_OCB ; Check for UCBs. None should 
3 BNEQ 3 3; be found because this cannot 
40 AO ack DOGst 2P_UCB(RO) 3 be the system disk CDDB. 
51 34 AO 00000054 i ADDL3) 3 #<SBS$L 33. - beast LINK>, = ; Get starting DDB chain 
DDBSL_SB(R 3; address. 
51 61 10$: MOVL DBSL “PENR CRI)” : Link to next DDB. 
BEQL $ : Branch if no more DDBs. 
CMPL ee RO 3; Find DDB which points to 
664 BNEQ 1 3; about to vaporize DDB. 
665 MOVL 28 LINK(RO), DDBSL_LINK(R1) ; Unlink vaporizing DDB. 
666 208: BSBB DEAN s Beat locate DDB. 
54 18 A5 66 MOVL COOBSL_CRB(RS) 3 t CRB address. 
50 2C Ad Ff 668 MOVL Stes sInibevec Tpecrs), RO 3 Get 108 address. 
oA 4 669 BSBB SEAN GED 3 deal locate 1d8. 
50 4 4 670 MOVL 3; Setu 
5 4 671 BSBB Reno : Deal A CRB. 
4 4A TSTL (SP)+ 3; Pop caller's return addr.ss. 
50 4C $7 MOVL . 3; Setup CODB. 
GF 74 DEANONPAGED: 
00000000 ‘ GF 4F 86 675 JMP G*E XESDE ANONPAGED : Deallocate it and terminate 
33 e76 3 this fork thread. 
o78 OH_NO: BUG_CHECK MSCPCLASS, FATAL 3 Found duplicate system-id on 
23 67 3 a CDDB with units already 
9 680 3 aeser 10ted. 
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cobs. INIT _PRM_CORP = Initialize a CDRP permanently attached to a CDDB 

S Functional Description: 
This routine — 4 of the gg permanently attached to a 
CODB. Because the C cluded in the CDDB allocation, it is 
zeroed when the a "S A, Therefore, only interesting, non- 
zero fields are initialized here. | 

Inputs: 


Re - CORP address 
- CODB address 


Outputs: 


| 
| 
RO & R1 destroyed. | 
ALL other registers are preserved. 

| 


CDDB_INIT_PRM_CORP: 
ASSUME att pyiensrn LT 32758 


Sak "ak “al “ahah “pd “hsb Ab rAbeab Ab AbrAb Ab Ab rAb Ab Ah Ab Ab Ah AD AL AL TAD AL A Ab AD Ab Ab Ab Ah eA] 
mm > NNO SF OOOO OOOOOODOOOOOOOOODOOONOOO 


ft. fe cae SUBL3 R2, R : Compute offset —* CORP 
3; base to CDDB bas 
08 A2 51 80 09 MOV CORPSW_CDRPSIZE(R2) 3; Store offset * CORP size. 
10 ASSUME Cofegs FIPC €Q CORPS$B CD, TYPE+1 | 
OA A2 0839 BF BO 13 MOVW CORDES ED TPE pppts_se SCSd8>>, -; initialize type and fork 
28 A2 64 ig CLRL CORPSE — ; Clear pointer to RWAITCNT. | 
40 A2 08 00 14 MOVL 4 RPS ; Flag this a perm. IRP/CDRP. 

9s 3 = CORPSL "BUTUFLAGS(R2) 
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-SBTTL DUTUSPOLL_FOR_UNITS = Poll a server for its available units 
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DUTUSPOLL_FOR_UNITS = Poll a server for its available units 
Functional Description: 


oe routine 5 a MSCP server to determin what units it h 

available. Gone 8 by sending * UNIT STATUS conmands vith the 

NEXT UNIT mR. until all known units have been reported. 

Lees varat units which are not represented in the 170° hs. base have a 
added. 


Special Processing for the Boot Device: 


When the class driver is controlling the boot device th peg -CDDB 
detects a UCB which is valid (UCBSV_VALID set in UCB$L_STS). 

this is the case, the UCB address is copied to CDDBSL _ORIGUCB. * all 
other cases, CDDBSL MORI GUCE is left zero and the UCB passed to the 
driver's controller initialization routine is deallocated. 


wire Bd. = antes this routine should find the boot device. It 

tch the unit number to the unit number in the UCB pointed to by 
tooese _ORIGUCB oot when a match ace it will begin special boot 
device processing. After the special boot device processing is 
initiated for the first time CbDBSL _ORIGUCB will be cleared. This 
— the special handling of the boot device a once per system boot 
occurence. 


This processing differs from other poll units processing in two ways. 
The ori ene B -- handed the class driver during controller 
poryes zation -- is used, not a newly created UC Also, a special, 
Limited form of mount verification (controlled completely by this 
routine and its subroutines) is pec recuse This Limited mount 
verification only performs a PACKACK function. (As opposed to regular 
mount verification which performs both a PACKACK and a volume 
validation operation). There is no memory stored volume information 
. ainst which to validate the boot volume. Also, system requirements 
this stage of the pees tag process are Limited to the boot device 
Seine accessible to the boot procedures (i.e. ONLINE). 


N.B. this method works equally well for disks or tapes. Although 
booting from tapes is not supported, its not prohibited by this code. 


a a a od —⏑ — —⏑ — —02— 
DRDRDPLDPDPA DDD. DDD DDD DDE DED D> DEDEDE DD DED DD DDD PPA PAA AA AA AAA AA AAA A AAAS 
Se ee ee ee ee — — — — — — — — — — — — — —— —————— erm 
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Inputs: 
764 R3 CODB — 
765 RG PDT addre 
oe R5 address + the DAP CDRP 
£68 Implicit Inputs: 
7 CODBSL_ORIGUCB(R3) boot device UCB address, if first init. or 
77 boot device by class driver; otherwise zero 
77 CORP aL -RSPID(RS) a valid 
77 DRPSL_MSG_BUF (RS) address of a valid SCS message buffer 
774 CDRPSU SIZE(RS) offset to the CDDB 


a 
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— DISK/TAPE CLASS DRIVER SUBROUTINES 16-SEP-1984 0:33:98 yes Macro v04-00 Page 
v04-001 DUTUSPOLL_FOR_UNITS = Poll a server for 14-SEP-1984 16:09: DRIVER. SRC JDOUTUSUBS .MAR; 2 
1¢f —3 CODBSW_STATUS(R3) CDDBSV_DAPBSY set 
16F 58 : The normal class driver MSCP operation timeout mechanism must be 
16F ah 3 enabled. 
1. 9 3 
16F 780 ; Outputs: 
16F 781; 
16F 7 § 3 R3 CODB address (same as input) 
16F 785; R4 POT address (same as input) 
He 4 : ; R5 CDRP address (same as input) 
Bier 7 § : RO through R5 are destroyed. 
16F 787 ; ALL other registers are preserved. 
he 788 ;-- 
16F 789 
O16F 790 -ENABLE LSB 
the 791 
16F 1 DUTUSPOLL_FOR_UNITS: : 
44 43 BEDO gugt 794 POPL CODBSL_SAVED_PC(R3) ; Save caller's return in CODB field. 
12 a3 20 AB 0173 795 BISW #CODBSA_POLLING, - : Set bit indicating polling in 
0177 «796 CDDBSW_ STATUS (RS) ; progress. 
0177 «797 : Clearing CORPSL_MEDIA causes the search for units to begin with 
0177 +798 ; unit 1. MSCP dictates that unit 0 is the last unit to be polled. 
DBAS D4 0177 799 CLRL _- CORPSL_MEDIA(RS) 
O17A 00 ALLOC_RSPID : Allocate a response-id. 
8189 01 ALLOC_MSG_BUF ; Allocate a message buffer. 
50 50 €9 84 z; BLBC RO, 139$ ; Branch if connection broken already. 
9 36 POLL_LOOP: 
$3 8g INIT_MSCP_MSG : Initialize buffer for MSCP message. 
D8 AS 686 3 +4 08 INCW CORPSL_MEDIA(RS) 3; Proceed with next unit. 
04 A2 D8 AS BO 018C 09 MOVW CORPSL_MEDIA(R5), - ; Put next unit number in MSCP 
8154 19 MSCPS$W_UNIT(R2) 3 command. 
08 A2 03 90 93 3 MOVB #HSCPSK_OP_GTUNT : Command is GET UNIT STATUS. 
195 81 MSCP$B_OPCODE (R25 
OA 42 01 BO 0195 14 MOVW #MSCPSA_MD_NXUNT, - 3; Modifier is NEXT UNIT. 
3199 Bz MSCPSW_AODTFIER(R2) 
: 9 B17 SEND_MSCP_MSG DRIVER : Returns with END PACKET addr. in R2. 
D8 AS O04 A2 3C O19 319 MOVZ2WL MSCPSW_UNIT(R2), - ; Save unit number located. 
tal 0 CDRPSL-MEDIA(RSS 
1A1 ¢ : Check for having located the original UCB, possibly the system 
1A} i : device, presented to the driver's controller initialization routine. 
50 4C A3 00 1Al 5 MOVL CDDBSL _ORIGUCBCRS) . RO ; Get original UCB address. 
08 1 1A5 § BEQ 0$ ; Branch if no such UCB exists. 
0004 CO 04 A2 1A7 CMPW MSCPS$W_UNIT(R2), = ; Does UCB unit match end-message 
1AD 8 UCBSH_ASCPUNIT(RO) : unit number? 
os 43 1A BEQL $ ; If match, go to special case code. 
1AF 1 308: : Check end-message -- determine whether or not we want the unit it 
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6-SEP-1984 : AX/VMS Macro v04-00 

l a server for 14-SEP ets 92: 38:54 YORIVER. SRCJDUTUSUBS .MAR; 2 
; describes in our 1/0 data base. We want the unit if the status is 
3 one of SUCC, AVLBL, DRIVE, or OFFLN (NOVOL). 


Stine MSCPS$V_ST fase R 0 
BiCcw3 ae CPSm- ASK, = : Extract — MSCP status. 
4 O. STRTUS CRS) RO 
DISPATCH a0, tle pret ixcMSCPSK. 


<suce 4p $>, > 
<DRIVE,40$>, - 
<OFFLN, *35$> - 


Page 


BRB 90$ ; If none of the above, ignore message. 
BRB DO_ORIG_ UCB : Branch assist. 
BRB POCL_ CONN_BROKE : Branch assist. 


: For offline devices, accept only those who have * volume mounted or 
; are 4 via ane RU N/ TOP of subcode NOVOL 
BC MSCPSV_S VoL. = ; the aw ope hy NOVOL? 

MSCPSW_ STATUSCR 5, 908 : Saat if not NOVOL. 


MOVZWL CORPSW ENDMSGSIZ(R5) R1 
BSBW DUTUSNEW_ 


R 
BEQL RESTART _POLL 


Restore MSCP message size 

Make sure a UCB exists ter this unit. 
Does UCB exist 

Branch if bea. not exist. 


” CDRPSL -MSG_BUF(R5), RO ; Get message buffer address. 
ASSUME WSCPSK “st SU ce of a 6 : If the unit found was online, 
BITW CPSA ST_M, ; the unit flags are valid. 

mech Su, STATUSCROD 
BNEQ 60$ ; Branch if unit not online. 


MOVW MSCPSW_UNT_FLGS(RO) : If online, copy unit flags to UCB. 
UCBSW_ONITTFLAGS(R25 — 


s eure ghar ernenent CDRP and DAP CDRP have a UCB address. 
MOVL PRMUCB(R3) ; Set permanent CDRP UCB address. 
MOVL RS: mitt tite _DAPUCB(R3) ; Set DAP CDRP UCB address. 
TSTW CORPSL_MEDIA(RS) ; Was unit found zero? 

Q ; If zero, all done: exit. 


L ; 
or _4SG_BUF : Recycle message buffer. 


Roe R _CONN_BROKE : Branch if connection is broken. 
RECYCL. RSPID ; Recycle response-id. 
BRW POLL _LOOP Loop till unit zero found. 
BSBW DUTUSDEALLOC_ALL : Release all CDRP resources. 
BICw #CODBSM_POLLING : Indicate that polling no longer is 
CDDBSW STATUS(RS) ” : in progress. 


Jmp Scopes SAVED_PC(R3) : Return to original caller. 


5 : The connection has broken during a polling operation. Release CDRP 
4 ; resources and abort the polling skeeed. 


; POLL CONN BROKE: 


BRw DUTUSDEALLOC_ALL ; Release all CDRP resources and 
; terminate the polling fork thread. 


TUSUBS SK/TAPE SLA 16°$ 
Voor 1 TUSPOLL_FOR_UNITS = Poll @ server for 14S —8 zt 
9 
3 : — — in the polling process. 
3 $ wilt be ged pool to accomidate the 
95 ; will be restarted from the begin : 
94 ; he unit which could not be conf 
95 ; aoe lable to configure it. Otherwi 
3 RESTART =POLL 
38 RECYCL RSG BUF 
6 RECYCL_RSPID 
a AS 4 8 C $00 CLRL ~ CDRPSL_MEDIA(RS) 
FFS4 1 F 901 BRe POLL_LOOP 


SS DRIVER SUBROUTINES 


78:09:21 UDRIVER. sReSoutUSuBS.man;2 "9° {2 


this point, something went wrong prying fe, build a UCB for a unit 


* se kely, there was not enough 
B. The ere of oy} ng for units 
9: oe: ully, by the time we return 
gured, some non=paged pool will be 
se, this is an infinite Loop. 


; Recycle MSCP message buffer. 
; Recycle the response ID. 

; Restart pent tag at unit 1. 

; Restart loop. 


nw 
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VER SUBROUTINES 1on~s60= 1386 90: 33:9¢ —386 Macro V04-00 Page 19 
- Poll a server for 14-SEP-1984 16:09: DRIVER. SRCIJDUTUSUBS .MAR; 2 (4). 
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HAND PROCESS BOOT DEVICE UCB 


Boot device UCB fields are initialized from the get unit status 

packet. A Limited form of mount verification precqssing -- involving 
only a IO$_PACKACK == is begun. Finally, the UCB is properly Linked 
into the 170 database. 


Inputs: 
R UCB address 
R MSCP message buffer address 
kK CODB address 
RG PDT address 
RS CORP address 

Outputs: 
RO & R1 scratch 
8 UCB address 
R CDODB address (unchanged) 
RG POT address (unchanged) 
R5 CORP address (unchanged) 


0_ORIG_ UCB: | 


POIPIPIPIPIPPIPIPIPOPDPIPIPPIPIPIPIPIPIPIPIPIPIFIFNPN OP 
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39 USHR #*M<RO,R3,R4,R5> : Save registers. 
51 46 AS C MOVZWL CORP$W.ENDMSGSIZ(R5), R1: Restore bengeh of MSCP message. 
OCr¢ 0 DUTUSFILL_MSCP_MSG ; Zero fill the MSCP message. 
0o8cco 1 A dO MOVL MSCeSt MEDIA, 1B(Re). - ; Copy MSCP media identification. 
0004 CO 04 42 B80 MOVW MSCP$Q_UNITTR2), - : Copy MSCP unit number. 
UCBSW_ASCPUNIT(RO) 
55 SS 00 MOVL RO, R : Setup UCB address. 
00000000'GF 16 JSB G*foc$seveR_UCcB : Unlink UCB. 
5 CREATE_FORK = ; Create a fork thread to relink 
5 LINK NEW_UCB, - ; the original UCB. 
5 frkbUk ="(R55, - 
5 mask = <“M<>> 
> ee 5 MOVL (SP), RS : Restore UCB address. 
58 64 AS 09 €0 5 BBS #uce$v MSCP INIT ING - ; Branch if UCB still initing; 
id . 3: it should not be!!! 
2 ucBSw_STS(R5), 388$ i hould be!!! 
50 0088 CS 00 5f 4 MOVL ures, DDT(RS), RO : Get DDT address. 
20 40 «00000000'8F 01 of 4 CMPL #108 RETURN, - : does this driver do mount 
C 9% TSL_MNTVER(RO) : verification? 
ao 13 6C 94 BEQL : If not, skip simulated mnt. ver. 
51 00C4 BF 3¢ $ 94 MOVZ2WL @#IRPSK_LENGTH, R1 : Get IRP size. 
090° F 16 950 JSB G*EXESALONONPAGED : Allocate one. 
F 50 € 7 951 BLBC 3; Branch if error. 
6 7C 326 PUSHR #*A<R1,R2,R5> ; Save valuable registers. 
62 51 00 6€ C O0O7E 9 mOVCS #0, (SP), #0, R1, (R2) : Zero the entire packet. 
C BA 4 954 POPR #°A<R2,R$,R5> ; Restore saved registers. 
BA 2 80 6 939 MOVY R2, IRPSW.SIZE(R3) : Set packet size. 
AA OA A 9 § MOVB DYN - ; Set packet type. 
E 93 IRP$B_TYPE(R3) 
E 3 ASSUME 108 _PAYSICAL GE 10$_PACKACK 
20 43 08 80 —E 95 MOVW #I10S_PACKACK, - ; Set function code. 


; 


ot 
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DISK/TAPE CLASS DRIVER suproutines > 16-SEP-1984 00: AX/VMS M v04-00 Page 
DUTUSPOLL_FOR_UNITS = Poll a server for 18: Fea lone 9° +33 9 YORIVER. SR SRE Spu TUSUBS .MAR; 2 ° 
ait «3 FUNC (R3) 
2A 43 2100 BF B80 MOVW “le pen puyst0 » Sst IRP status flags. 
'TRPSM-MVIRP> IRPSu_s sTé(R 
03 68 45 08 2 BBSS  #UCBSV_ASCP_MNfV Ri ; Mark the UCB mount ver. in 
D 4 UCB$W_DEVSTS(R5) 16s: progress. and oun wait 
56 AS 86 % 5 INCW ue W"RWAITCNT (RS) : if that's needed 
\¢ AS. OS 3 A § 310$: OVL R5, IRPSL_UCB(R3) : Set UCB address in IRP 
OC AS «BF'AF «6 O9E A 6 MOVAB BEND ORIG UCB_I0, - _} Set completion routine in IRP. 
00000000 ' GF 16 ~ | $3 JSB G*1OCSINITIATE : Begin the request. 
if BA AF 49 320$ POPR once 82 R4,R5> ; Restore registers. 
4c A 4 0081 re CLRL = CDDBSL_OR{GUtB(R3) : Indicate no more original UCB. 
FF31 1 5 3 BRW F INISH_ORIGUCB 3 Rejoin polling loop. 
B? 975 388%: BUG_CHECK MSCPCLASS, FATAL ; Boot UCB initialization waited for 
4 378 3 something. This should never happen. 
0 BB 378 399$: BUG_CHECK MSCPCLASS, FATAL ; Could not allocate IRP for boot 
BF 97 3 device PACKACK. We could recover 
O2BF 980 3; from this, but it should never happen. 
8 BF 981 
BF 982 


-DISABLE LSB 


i ; 
TUSUBS DISK/TAPE CLASS DRIVER SUBROUTINES AX/VMS Macro v04-00 Page 
Mite ti DUTUSPOLL_FOR_UNITS = Poll a server for Pa} 984 98: 33; 9 DRIVER.S REID DUTUSUBS .MAR ; 2 7 
BF 4; 
oe 5 ; 1/0 POST ROUTINE FOR ORIG_UCB I0$_PACKACK 
BF 5 : If the packack was successful, completion of mount verification is 
+4 2 8 3 simulated. Otherwise, the packack is resubmitted. 
BF 0 : Inputs: 
BF 339 3 
BF 838 : RS IRP address 
BF 935; IPL IPL$_1I0POST 
BF 994; 
BF 95 ; Outputs: 
BF 38 3 
BF 997; RO - RS destroyed. 
4 44 3 ALL other registers and IPL preserved. 
BF 1000 
4 ! 3} END_ORIG_UCB_I10: 
1f 38 45 E€9 BF 1 88 BLBC IRPSL_IOST1I(R5S), 90$ 3; Branch if PACKACK error. 
50 55 v0 8 C3 130 MOVL : Copy IRP address. 
55 1C AO b9 C6 1005 MOVL  IRPSL_UCB(RO), RS ; Get UCB address. 
FE82 O2CA 1306 BSBW DEANONPAGED : Deallocate IRP. 
8 CD 100 DSBINT ucese_ FIPL(RS) 3 Raise to fork IPL. 
53 D4 D4 1008 CLRL 3; Signal end mount ver. 
50 0088 cS 00 8 D6 1908 mou ucoée DDT(R 3; Get DDT address. 
2080 16 DB 1010 JSB aooTsce DONTWEREROS : Call end mount ver. rout. 
8 DE 1011 ENBINT 3; Restore IPL. 
05 6 3 434 $B ; Return to our caller. 
an: aoe, 8 es 1014 90$: MOVL R5, R3 : Copy IRP address. 
55 60 43 9% ES 1015 MOVAB {RPSL _FQFL(R3), : Setup CORP for wait. 
8 —9 1 1 FORK_ ; Wait a while 
55 1€A3 OD EF 131 MOVL IRPSL UCB(R3) : Get UCB address. 
00000000'GF 17 O2F3 1018 JMP grTOtSINTT TATE © : Try PACKACK again. 
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-SBTTL DUTUSUNITINIT = Class driver unit initialization routine 


DUTUSUNITINIT = Class driver unit initialization routine 
Functional Description: 


The operating system calls this routine after calling the controller 
initialization routine: 


at system startup 
during driver loading 
during recovery from a power failure 


For the class drivers, the * —18 of this routine is deletion 
of unnecessary UCBs created by SYSGEN. For the purposes of determining 
whether or not to delete a UCB that UCB can be in one of three states 
upon entry to this routine: 


1. The UCB can be online (i.e. UCBSV_ONLINE is set in UCB$W_STS). 
In this case, the UCB should not Be deleted. e UCB is 
either the system disk UCB, supplied at startup, or it is a 
UCB built during normal *— operation by the class driver 
and this call was caused by a power failure. 


The UCB can be offline after a power failure (i.e. 

UCBSV_ONLINE is clear and UCBSV_POWER is set in UCB$W_STS). 

Again. the UCB should not be deleted. This call is the result 

of a power failure and the UCB is one of the CDP UCBs for a 

joe to coves which has been found to be accessible via a class 
river path. 


3. The UCB can be offline with no power failure peving occured 

(i.e. both UCBSV_ONLINE and UCBSV_POWER are clear in UCB$W_STS). 
This UCB should Be removed from the DDB chain and deleted.” It 
is a bogus UCB supplied by SYSGEN. 


N.B. These tests depend heavily on two facts: 
a. The DPT_STORE initialization macros do NOT set UCBSV_ONLINE. 
b. The class driver controller initialization does set 


UCSPN ONL IE in any UCB that potentially represents the system 
evice. 
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To make life simpler and to keep SDA device Gosplays from Looking 
funny,“ this routine always clears UCBSV_POWER. No other part of the 
class drivers test, reset, or care about fhis bit, but leaving it on 
eternally after a power failure will look wierd. 

Inputs: 
R5 UCB address 


Outputs: 
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RO and R1 are destroyed. 
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DUTUSUNI Class driver unit initia - DRIVER. Sh CIDUTUSUBS .MAR; 2 


F ALL other registers are preserved. 


A 
T 
1077 ; 
rs 1009 
; : ? DUTUSUNITINIT:: 
OF 64 A5 05 €4 Fo «1 § BBSC sucesv. POWER, UCBSW_STS(R5), 3; Clear the Paver vottwe bit 
FE 1 mg and branch if it was set. 
0A 64 A5 04 €0 FE 1084 BBS Ierv. ONLINE, UCBSW_STS(RS), : Branch 4 the enitne bit 
: 5 3; is set. 
1 $ ASSUME UCBSV peverevce GE 16 
66 45 01 88 1 8 B1SB #<UCBSM DELE TEUCE @ -16>, - 3 Else, set the delete this 
1 UCBSL eres (R5) ; UCB ‘ 
00000000 ° GF 16 4 } + JSB G* IOCSOELETE UCB ; Then, delete this UCB. 
030D 1092 


o 
o 
* 
— 
2 
an 


; Return to caller. 


; 
CLASS DRIVER SUBROUTI § 16-SEP-19 253: AX/VMS Macro v04-00 Page 24. 
* UCB = Failover a single UC 14-S Pa} 984 9:35:99 YORIVER. SRE IDUTUSUBS .MAR; 2 . (6) | 
2 -SBTTL DUTUSFAILOVER_UCB = Failover a single UCB 

| i ; DUTUSFAILOVER_UCB = Failover a single UCB 

38 : Functional Description: 

1 : If conditions permit, the UCB whose address is in RS has its primary 
11 5 path switched to its secondary path and vise versa. The secondary 

11 ¢ : path CDOB must exist and have all of the following bits clear for 

4 failover to proceed: 

1 5; CDDBSW_STATUS bit meaning (when clear) 

11 — CDDBSV_SNGLSTRM not in single stream mode 

11 8 § CODB$V_INIT not initializing 

1109 ; CODBSV_RESYNCH not res nehronizing 

1110 ; CDDBS$V_POLLING not polt ing for units 

Wh 3 CDODB$V_-NOCONN has a good connection 

1448 : The failover attempt is also prohibited whenever the UCB to be failed 
n over has incomplete cancel operations. 

1318 : Inputs: 

1313 : R3 Address of UCB to be failed-over 

1 , : Implicit Inputs: 

11 ; : UCBSL_CDDB(R3) Address of current primary CDDB 

11 3 UCBSL_2P ee Address of current soqendary & codos 

1124 ; UCBSL DOR ) Address of current primary 

1125 ; UCBSL_2P_DDB(R3) Address of current secondary DDB 

11 § : UCBSL_LIAK(R3) Address of next UCB in orinery DDB chain 

W127 ; UCBSL_2P_LINK(R3) aqeress of next UCB in secondary DDB chain 
1128 ; UCBSL-CDBB_LINK(R3) Address of next UCB in CDDB chain 

1129 ; UCBSU_ASCFONIT (RS) * Bu number for UCB 

1130 ; UCBSW_UNIT(R5) number for UCB 

1131 ; UCBSW_DEVSTS(R3) UCBSV _MSCP WAI TEMP set if current (old) 

1 § § connection is performing a reconnect 

1 : : Outputs: 

11 § : RO SS$_NORMAL ==> failover succesful ty per formed 

4 3 SS$-MEDOFL ==> failover could not be performed 

1138 ; ALL other registers preserved 

1141 : Implicit Outputs: 

1108 : ucB unl totes Aye primary path, primary and secondary paths switched, 
1146 ; and UCB L nto former secondary path which is no primary. UCB 
116? 3 fields ee by this operation: 

1143 : UCBSL att Address of new primary CDDB 

1103 : UCBSL P 3 Address of new secondary CDDB 

1149 ; UCBSL — Address of new primary DDB 

1150 ; UCBSL-2P_DDB(R3) Address of new secondary DDB 


3 
DISK/TAPE CLASS DRIVER SUBROUTI 3 -SEP-1984 253: AX/VMS Macro v04-00 Page 
DUTUSF ovER UCB - Failover a ~ uc 187865213 4 90:38:94 DRIVER. SRC JDUTUSUBS .MAR; 2 ° 
UCBSL_LINK(R3) Address of next UCB in primary DDB chain 
UCBSC “SP LINK «RSD Address of next UCB in CODB chain 
UCBSL_CRB(R3) Address of CRB for new erie ry CD08 
UCBSW_RWAITCNT(R3) bumped if new CDODB has CDDBSV_RECONNECT set: 
decremented if new CDDB has CBDB$v_RECONNECT 
clear and UCBSV_MSCP_WAITBMP is set 
UCBSW_DEVSTS(R3) CBSV_WAITBMP is made to match CDDBSV_RECONNECT 
n the new CDDB 


Then the original or aere CDODB is restart queue scanned for CDRPs with 
CORPSL_UCB matching the input UCB. Each CDRP located is placed -- 
in the order found -=- at the head of the UCB's I/0 queue. 


Side Effects: 


Because the 1/0 database DDB chains are updated to reflect a 
successful failover operation in a separate fork thread, that change 
may not appear immediately after this routine is called. However, all 
changes required to successfully access the device have been made upon 
exit from this routine and 1/0 request processing can proceed 
immediately. The 1/0 database will be updated as soon as the separate 
fork thread detects that the 1/0 database mutex is unowned. 


A. A.A. AAAI AAA AA AANA PP 
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UTUSFAILOVER_UCB: : 
3€ PUSHR #*M<R1,R2,R3,R4,R5> 3 Save registers. 
1A 3C AS 04 BBC DEVSV_2P, - 3; Branch if device not dual- 
UCBSL_BEVCHAR2(R3), 90S : path configured. 
7 os MOVL R3, R ; Setup UCB address. 
53 00c0 ¢5 MOVL UCBSL_2P_CDDB(RS), R3 : Get secondary CDDB. 
10 BEQL $ :; Branch if no secondary CDDB. 
12 43 0085 8F BITw #<CDDBSM_SNGLSTRM - ; Is secondary CDDB ready for 
'CDODBSM_INITING - 3; failover? 
'CDODBSM_RESYNCH - 
'CDDBSM_POLLING - 
'CODBSM_NOCONN> 
CODBSW_STATUS(R35 
8 BNEQ ; Branch if sec. CDDB not ready. 
4 CLRL RG : Signal test UCB only. 
96 5 BSBW DUTUBSEHE CK NOCANCEL ; Check for active cancels. 
08 50 BLBS RO, 100$ 3; Branch if no active cancels. 
50 O1A4 er 90$:  MOVZWL #358 MEDOFL, RO : Else, indicate failure. 
0073 GRw 580$ : Branch to routine exit. 
041C 100$: 8580 DUTUSSEVER_CDDB 3 Untink UCB from failed CDDB 
3 s chain. 
SWITCH UCBSL_CDDB(RS), - : Switch primary and secondary 
UcBst P_CDDBCRS) : CDDB pointers. 
0407 BSBWY 8 DUTUSTNIT_CONN_UCB ; Adjust connection dependent 


; UCB fields. 
; Adjust UCBS$V_MSCP_WAITBMP and UCBSW_RWAITCNT to reflect any change 
: in connection state between the former and the current connection. 
; The following table describes the needed adjustment: 


WAITBMP RWAITCNT RECONNECT WAITBMP RWAITCNT RWAILTCNT 
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TUSUBS DISK/TAPE C 
Mite BU TUSFATLOY 
4 
4 
i 
4 
4E 
4E 
4E 
4E 
4E 
4E 
03 68 AS OA €E2 33 
56 ASB: 
07 12 a3 08 EO é 
56 45 87 
69 AS 04 BA 5 
6 
24 AS 18 A3 8° 8 6 
03A5 30 (036 
8 6A 
6A 
69 AS 08 808 6A 
0C 12 A3 OB £0 ; 
? 
? 
0 7F 
51 oococsS 3c C1 zr 
50. 51 DO 3 
52 4C AS 8 8 
29 $9 ) ¢C 
1 D1 f 
1 13 2 
55 BC AD D1 0394 
f 12 98 
70,0 80 888 
3 AD AO DE O5A 
E511 O3A 
50 } 00 ref 
Bs sac 


E 


1 
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R_UCB = Failover a single UC 14-S Pa} 984 98; 38; 3 YORIVER. R.S 530 TUSUBS .MAR; 2 . (6) 
; old old new CDDB new new adjustment 
Piva} fee ee 
: 1 +1 ’ ? +1 0 
> Start by assumin new CDDBSV_RECONNECT is set and backout the 
3; adjustments is not. 
BBSS #UCBSV_MSCP_WAI TBMP 3; Assume that a reconnect is in 
UCBSW_BEvSTS(R5) 1558 : progress ond. alter wait count 
INCW =: UC BSW RUALTCNT (RS) : & bumped bit accordingly. 
BBS eCDDesV RECONNECT, : If reconnect in progress, 
CODBSW_STATUS(R3) 130$ : skip wait count re adjustment. 
DECW UCBSW_RWAITCNT(RSS : Else, decrement bumped count 
ASSUME UCBSV_MSCP_WAITBMP GE 8 3 and clear wait count bumped 
B1cB <UCBSM_MSCP_WAITBMP @ -8>, - ; ‘ 
UCBSW_DEVSTS#1(R5) 
MOVL CODBSL_CRB(R3), UCBSL_CRB(RS) 3 Setup new CRB address in UCB. 
BSBW DUTUSLTNK_UCB2CDDB : Link UCB into new CDDB chain. 
ASSUME —8* MSCP_FLOVR GE 8 : Switch UCB failed-over flag 
XORB <UCBSM_MSCP_FLOVR @ -8>, - 3 state. 
Ocesy DEVsTSticR R5) 
BBS 86 Sv_2PBSY : Branch if 1/0 database update 
W STATUSERS) 140$ : fork thread is glready active. 
CREATE “FORK “SUTUSFA ILOVER 8 3; Else, make the fork thread 
frkblk = CDDBSA. 2PFRB(R3) 3 active. 
ADDL3 Ucaet 2 A{DOBRSS 3; Get address of failed CDDB 
CBSL a gppecn §, Ri ; restart queue header. 
ASSUME 3: Now form ‘ brevicus —s 
MOVL 3; address for queve 
MOVAL yn L(RS), Re : Init prev. entry or TNSQUE. 
MOVL CORP —* L(RO), R : Link to next restart CDRP. 
CMPL 3; Is this the end? 
BEQL £94 3 French if this is the end. 
CMPL cage UCB(RO), R5 : Is this CORP 3* this UCB? 
BNEQ 150$ 3 A f not our CORP. 
REMQUE ; Else, de- 28* the CORP. 
INSQUE CORP RPSL | Poort (RO), (R2) : Add IRP to UCB 1/0 queue. 
MOVAL CORPSL-IOQFL(RO), R2 3 Rake this. a predecessor 
3 to the n 
BRB 150$ : Go look for another CORP. 
MOVL #SS$_NORMAL 3 Indicate success. 
—* — — Rs, Re, R5> 3 goqtere saved registers. 
o Gxt. 
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DUTUSFAILOVER_IODB = Update DDB 1/0 data 14-SEP-1984 16:09: DRIVER. SRC JDUTUSUBS .MAR; 2 (6) | 
J 5 * -SBTTL DUTUSFAILOVER_IODB = Update DDB 1/0 database after a failover | 
AD 1261 : 
v4 ! ; DUTUSFAILOVER_I0DB = Update DDB 1/0 database after a failover | 
AD 64 : Functional Description: | 
AD 1 06 : bee changes in the DDB - uCy chains in the 1/0 database must wait 
AD 1267; unt } the 1/0 database mutex is unowned and since eue® changes are not 
AD 1 8 required for performing 1/0 requests by the class drivers, that I/0 
AD 1 § 3 database updete is performed (and maybe postponed) in this fork 
AD 1 9 3 routine. This routine uses a one-per-CDDB fork block. Therefore, it 
AD 1271 ; cannot failover just one UCB. It must scan all UCBs chained to the | 
~ ! 4 : CODB and failover all UCBs requiring such action. | 
AD 1274 ; After write access to the 1/0 database mutex is assured, all UCBs on 
AD 1275; the input CDODB requiring DDB-failover are so altered. fhe failover is | 
AD 1 6 : accomplished by unt tak the the UCB from both the oc rears and the 
AD 1277; secondary DDB chains, switching primary and secondary DOBs, and 
2 4 3 relinking the UCB into the two (switched) chains. | 
AD p : Inputs: 
AD 1 : : R3 CDDB address 
4 a: : Z $ R5 Failover (2P) fork block address 
O3AD 5 : Outputs: | 
AD 1 ; ; RO = RS are destroyed. 
7 : 3 ALL other registers are preserved. 
AD $0 : Special Notes: 
AD 1 3 This routine is coded so as not to assume that any UCB with the 
AD 1295 ; UCBSV_MSCP_FLOVR flag set must have its DDB chains switched. 
AD 1294; —997 — the two-path-per-device restriction plus the coging which 
AD 1295 ; sets UCBSV_MSCP_FLOVR in DUTUSFAILOVER_UCB do guarantee this to be the 
AD 1 38 $ case. However, may future plans indicate that such geqrentoss may not 
AD 1297 ; always be possible. Therefore, this routine is coded is a cautious 
AD 1 38 3 manner. 
m4 : 9 ;-- 
AD ? ASSUME CDDBS$V_2PBSY GE 8 | 
2 DUTUSFAILOVER_IODB: 
13 43 08 88 AD 1305 BISB #<CDODBSM_2PBSY @ -8>, - ; Set fork block busy flag. 
1 1 $ CODBSW_STATUS+1(R3) 
3 WAIT FOR I ; Obtain 1/0 database write access. 
55 84 43 9 D1 1 8 MOVAB 2CDDBSL_UCBCHAIN - - Initialize ‘previous’ UCB address. 
D3 1 “Ce b CDDB_LINK>(R3), r§ 
30'AF 9f 4 ! 19 PUSHAB 8* : Setup bug-trap for forking FIND_DDB. 
55 00c6 (5 OD 3 1 1 10$: MOVL YCBSL _CODB_LINK(RS), RS ; Link to next UCB. 
4F 1 DD 131 BEQL 3; Exit if no more UCBs to process. 
F468 AS OB CE DF 1314 BBCC #UCBSV_MSCP rLOvR. 2 : Branch if UCB not failed-over and 
| €4 1315 UCBSW_BEVSTS(R5), 108 ; clear failed-over bit. 
| 
| 
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—WB —— Uodate — 1/0 data 1 ~$FP 38 90:33:94 YORIVER. SREIDUTUSUBS.MAR:2 . (6) | 
46 1C A3 OD ES 131 VL CODBS$L_DDB(R3), R4 ; Setup starting DDB for DUTUSFIND_DDB. 
53 38 AS 14 p8 €8 1 19 ADDL3 #ODGST LNARE - 3 Setup device Rene address string for 
ED 1 18 UCB " BpB(RS), R3 ; DUTUSFIND DDB. 
0242 30 3 131 BSBW DUTUSFIND_DDB ; Find righ® DDB on this CDDB for UCB. 
28 AS 5 o FO 1320 CMPL R4, UCBSL_DDB(RS) ; Is correct DDB already primary? 
J FA 1301 BEQL 1 ; Branch if correct DDB a ready setup. 
QOOAO C5 4 01 F6 1 ¢ CMPL R4, UCBSL_2P_DDB(R5) : Is found DDB the secondary DDB? 
c WR FB 1 BNEQ 98 ; If not, something is wary wrong. 
—7 18 Fe 1326 JSB G*1OCSSEVER_UCB 3; Unlink UCB from primary DDB chain. 
i ee 4 1325 BSBW DUTUSSEVER —38 ; Unlink UCB from secondary DDB chain. 
rf 6 : § SWITCH Ue est BOO (RD) 5 ; Switch primary and secondary DDBs. 
-—. 2s. oF ai§ 1328 MOVL RS, R2 ~ $ fopy UCB address for relinking. 
00000000°GE 16 418 15¢9 JSB G*fOCc$LINK_UCB : Relink to primary DDB chain. 
14 50 4 R 1330 BLBC $ : Branch if relinking error. 
02BA 30 0421 1331 BSBW DUTUSLINK_SEC_UCB : Relink to secondary DDB chain. 
E 9 E9 0424 1 ¢ BLBC RO, 9 ; Branch if relinking error. 
53 O0BC C dO Be , 9 MOVL UCBSL_CDDB(RS), R3 ; Guarantee a correct CDDB address. 
AA 11 Be : : : BRB 10$ ; Loop till no more UCBs to process. 
8E D5 04 3 1 § 90$: TSTL (SP)+ ; Remove DUTUSFIND_DDB bug-trap. 
13 43 08 BA 04 1 BICB #<CDDBSM_2PBSY @ -8>, - ; Clear fork block busy flag. 
0434 1338 CODB$W_STATUS+1(R3) 
05 be : : 3 RSB : End fork thread. 
0435 1341 ; A duplicate unit number has been discovered during the primary or secondary 
8 4 ;.0DB relinking attempt. 
Be 3 ; rt: 997$: BUG_CHECK INCONSTATE, FATAL 
0439 1 re ; The DDB found by DUTUSFIND_DDB is neither the tet nor the secondary DDB 
0439 1347 ; for this UCB. In this case, something is totally confused because there 
0439 1 8 3; should only be two CDDBs per UCB. If more than two paths are allow for a 
3; single device, some other action wou e required at this point. 
. , : $3 ingle d h i ld b ired hi i 
“i ; : 2) 998$: BUG_CHECK MSCPCLASS, FATAL 
be es a ; DUTUSFIND_DDB has forked. This should never happen. fFIND_DDB forks because 
43D 1354 ; the 1/0 database in not available for write access or because it cannot 
43D 1355 ; allocate pool for an new DDB. However, this routine already has write 
43D 1 2$ 3 access to the 1/0 database mutex and the DDB which FIND_DDB is Ltooking'“ for 
43D 1357 ; should already exist. Therefore, DUTUSFIND_DDB were tog is a very fata 
43D 1 38 3: error. Also note: that the MOVL used to restore the CODB address just 
? 4 ! 23 ; before the BRB 10$ would be invalid should the DUTUSFIND_DDB actually fork. 
43D 1361 999$: BUG_CHECK MSCPCLASS, FATAL 
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: DUTUSNEW_UNIT = Process a possible new unit 


44) 
44) 
441 
441 
441 
441 3 
ree 3; Functional Description: 
44 This routine processes a unit available attention or get unit status 

end message. If the 1/0 database does not reflect the presence of the 
unit described in the MSCP message, the new unit is added to the 1/0 

database in whatever manner is appropriate. The only condition which 
will prohibit adding the new unit is insufficient non-paged pool to 


accomidate the UCB. When this occurs, the message is ignored. 


First a check is made to determine whether the unit is already known 
to the 1/0 database. The unit can be either on a primary or a 
secondary path. If the unit belongs on a secondary path, the routine 
which checks for a previous secondary path condition wil 
automatically place the unit on the secondary path. 


If no primary or secondary UCB can be located, a new UCB is allocated. 

If this allocation fails, control is immediately returned to the 

ips no further attempt is made to represent the new unit in the 
atabase. 


Upon successful allocation and setup IOCSCOPY_UCB, this routine 
fills in a few more fields in the new UCB. The most ——— fields 
are those which are copies of the information in the MSCP message. 
This is the last — sunt? in the UCB creation process to reference 
the MSCP message. Once all the useful information has been copied 
from the MSCP message to the new UCB, a fork thread is started to 
complete initialization of the UCB and Link it into the I/0 database. 


Whether or not it has been completely setup, the new UCB address is 
returned in R2. 
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rr Inputs: 
R1 size of the MSCP peseegs 
Ré base address of the MSCP message 
R CDDB address 


Implicit Inputs: 


Template UCB in .PSECT $$$200_ TEMPLATE _UCB_ 1 

Template ORB in .PSECT $$$209_TEMPLATE_ORB_01 

DUTUSL_CDDB_LISTHEAD location containing the system virtual address 
of the CDDB Listhead for this device class 


Outputs: 


R2 UCB address for unit represented in the MSCP message (either 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
: 
: new or already existing 
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RO through R2 destroyed. 
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ALL other registers preserved. 
WARNINGS: 


The UCB address returned by this routine may or may not be correctly 
Linked into the 1/0 database. The Linking operation is performed in a 
seperate fork thread (which uses the UCB as a fork block). This fork 
thread can become 5— due to lack of memory needed for creation of 
a DDB, due to lack of write access to the 1/0 database, or possibly 
some other reason. The only thing which is certain is that at some 
time (now or in the future) the new unit will be represented by the 
UCB whose address is returned in R2. 


FORKING CONSIDERATIONS: 


The UCB is currently used as a fork block by the class drivers in 
three different instances: 


Be Creation of the CDDB when the controller initialization 
routine is called. 

2. For the fork thread which Links a new UCB into the 1/0 
database. 
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Da ek a ee a tah ee a ek, ee 
PPLE PPP EPP PPP PPP PPP PPP LEE EEE LCV 


et tt ss ss ls es a a tn a 2 a ts a — — — —— 


Da el tel ak ak lak, tak, tak tak, telah ta ek ek ek ek ek et ek ek et ek ek ke kk eee — —— 


PARANA AAAI EB BB BE ANIA ——— — 


0 

4 

é 

4 

é 

? 
0 ¢ 3. For the fork thread which Links the secondary path threads to 
04 a UCB which has been determined to represent a dual-pathed 
a : device. 
04 § Athough it is not obvious, these three uses cannot be competing to use 
8 the same UCB as a fork block concurrently. Usage 1 occurs ony when 

8 no connection to the MSCP server exists. At that time, no MSC 
04 9 messages can be received. Therefore, usage 1 precludes usages 2 and 
044 0 3. While the fork block is in type é usage, the UCB is unknown to the 
0441 1 1/0 database. Therefore, it cannot be ge ected and put into use by a 
Rees § type 3 fork thread. Thus usages 2 and 3 are mutually exclusive. 

441 4 There is a race condition (which the LINK_NEW_UCB fork thread must 
0441 5 detect). This race results from a stalled new UCB thread —— — — 
0441 § detection of a dual path condition. Before actually Linking a new UCB 

441 into the 1/0 database but after all possible stall conditions have 

441 8 been delt with, the new UCB fork thread must make one last attempt to 

441 9 dualpath Link the new UCB. 

441 0 ;-- 

al tea 

441 188 t Locate the template UCB and ORB 

441 1464 ; 

tel 1466 SAVE 

0000 16 -PSECT $$$200_TEMPLATE_UCB_00 RD.WRT,EXE,LONG 
$08 DUTUSTEMPLATE_UCB: : 
0000 <3 -PSECT $$$200_TEMPLATE_ORB_0O0 RD,WRT,EXE,LONG 
4 DUTUSTEMPLATE_ORB: : 
0000044 £38 RESTORE 
il iin 
441 1476 DUTUSNEW_UNIT:: 
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MOVAB UGuTUSTENPLATE UCB, RS ; Get template UCB address. 
MOVAB As he Usa ty . TE- “ORB, - ; Set template ORB address. 
JSB sstta tate UCB ; Make new UCB from template. 
BLBC RO, 18$ ; Branch if new UCB not created. 


54 
55 QOOO'CF 9E 
1C AS QOOO'CF 9E 


QO000000'GF 16 
DD 50 


: Copy MSCP message address. 


: Compensate for unwanted IOCSCOPY_UCB 
; initialization: 
o* 3; = Restore RWAITCNT. | 


3; ~ Restore reference count. 


56 422 56 45 BO 
5C A2 5645 80 
68 A2 68 45 80 


44) 
04 42 OFFF BF ree CMP #4095, MSCPSW_UNIT(R2) ; KLUDGE "20951 is —* ants to be 
44 BEQL 3; created 409 n't. 
010F 449 BSBW DYTUSLOOKUP_UCB : Do we a read Y AL sof ote unit? 
8 44C BNEQ 15$ 3 Agee er. t re | known. 
O12A rth BSBW DUTUSSETUP_DUAL_PATH ; Is this un or should this unit 
4 : be, “dual pathed? 
50 4 TSTL 3; Was uni t dual pe 
8 4 BEQL 30$ ; Branch if unit ne ,* pathed. 
52 0 $2 15$ MOVL RO, R2 :; Copy address of previous UCB. 
4 RSB ; Return to caller with address of 
‘3 : previously existant UCB in R2. 
54 3 459 138: novo (SP)+, RG : Restore saved registers. 
45C 19$: CLRL R2 3; Indicate new UCB cannot be created. 
05 rf RSB ; Exit without creating new UCB. 
0A4B 0 O45F 30$: BSBW pytuse it _MSCP_MSG ; Zero extend the MSCP message. 
7E 54 D rh} MOVQ -(SP) ; Save a couple of registers. 
52 dO 046 MOV 
468 
46 
47 
47 
479 
47C 
47C 
47C 
47C 
4 
4 


ALTCN 
“RWAIT 

MOVw UCBSW “her 
VST 


pat hy tmp ms 
Sar vas 


N 

2 
$ (R5), - 3 * Restore device dependent status. 

UCBSW_DEVSTS(R2) 

ASSUME UCBSL PANO OCR EQ - 


UCBSL 
CLRL UCBSL “MAXBLOCK (R2) 


Since no 1/0 will go to this ‘‘disk”’ 

before the first PACKACK, zero the 
maximum block number (for tapes this 
harmtessly zeros the frame number). 


: Initialize fields required by the 
; final UCB setup fork thread: 


22222222222222222222222222 
BLOGS WAM Hm — 


00B0 C2 D4 


008C C2 1C A&~ DO MOVL MSCPSL_MEDIA_ID(R4), - ; = MSCP media gy Pant Bet nl 
uses REDIA, TD(R2) 
00D4 C2 04 AG B0 MOVW Q UNITTR4), - ; = MSCP unit number. 
UCBSW "ASCPUNIT(A2) 
CREATE_FORK = 3; Start a fork thread to complete 
LINK_NEW “Utes 3; setup and Linking of the new UCB 
frkbUk ="(R25, : into the 1/0 database. 


mask = —R — 


54 8€ 7D mova (SP)+, R4 Restore saved R4 and R5. 
RSB Return to caller with new UCB 


address in R2. 
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LINK _NEW_UCB 
Functional Description: 


——*8 in the context of an independent fork thread and using the UCB 
as a fork block this routine completes initialization of a new UCB and 
establishes the primary path Linkage for that UCB. 


The various backpointer fields in the UCB are filled in. Previously 

uninitialized queue headers are initialized. Where appropriate, state 
bits are altered. possible, a device type is determined. The name 
of the device (DDCn form) is established. 


A suitable DDB is located or created. Then write access to the 1/0 
database is obtained. Either one or both of these operations may 
cause the thread to fork. 


| 
| 
After completing those operations which can fork, a final check for | 
a dual path device is made. This eliminates a possible race between 
two new UCB creations for what is truely a dual pathed device. If a 
dual path condition is found, the already existing 1/0 database is 
altered to reflect the dual path device and the UCB used as a fork 
block for this thread (and the thread itself) are discarded. 
| 
| 
| 


If the dual path lookup fails, the new UCB is Linked into the 1/0 and 
class driver databases and some connection dependent fields are 
initialized to reflect the current connection to the actual device. 


PDP PPS E> Be BS BBE AAI 
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Inputs: 
R3 CODB address 
RS UCB address (also used as a fork block) 
fork context at IPL$_SCS 

Implicit Inputs: 


UCBSW_MSCPUNIT(RS) MSCP unit number for device 
UCBSL_MEDIA_ID(R5) MSCP media identification for device 


Outputs: None. 
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Implicit Outputs: 


~ 
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Bat —— ) CRB address 
r 
9 — DOT address 
§ 1/0 Database ong Class Driver Linkages: 
UCBSW_UNIT(R5) 1/0 database unit number 
4 UCBSL_ODB(R5) DDB address 
5 C THY Link to next UCB in DDB chain 
$ UCBSL_CODB(R5S) CDDB address 
UCBSL_CODB_LINK(R5) Link to next UCB in CDDB chain 
3 Connection Dependent: 
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A UCBSL_COT (RS) CDT address | 

8 UCBSL_PDT(RS5) PDT address 

4A Other: 

4A UCBSW_DEVSTS(R5S) UCBSM_MSCP_INITING cleared 

8 UCBSL_MAXBCNT (RS) copied from PDTSL_MAXBCNT (pdt) 

4A if CODB is not initializing or reconnecting: 

GA UCBSW_DEVSTS(R5S) UCBSM_MSCP_WAITBMP cleared 

4A UCBSW_RWAITCNT(RS) decremente 


WARNINGS: 
The CDDBSL_DDB in this CDDB must point to at least one valid DDB for 


the devices which are (could be) accessed via that CDDB. The major 
implication here is that we can never discard the DU or TU DDB handed 
us by SY - et. al. when calling the driver at its controller 
initialization entry point. 


LINK_NEW_UCB: 


3; Guarantee sufficient space for device name formation. 
ASSUME DDBSS_NAME EQ 16 

If DEFINED UCBSL_CANLINK 

ASSUME UCBSL_CDT EQ <UCBSL_CDDB_LINK+4> 

ASSUME UCBSL_CANLINK EQ <UCBSL_CDDB_LINK+8> 

st ay UCBSQ_UNIT_ID EQ <UCBSL_CDDB_LINK+12> 


at EQ <UCBSL_CDDB_LINK+4> 
ASSUME UCBSS_UNIT_ID EQ 8 


ASSUME UCBSQ"-UNIT"ID EQ <UCBSL_CDDB_LINK+8> 


oosc CS VL z3, UCBSL_CDDB(RS) ; Save CDDB address. 
54 MOVL  CDDBSL_DDB(R3), R4 Get beginning DDB for scan. 
53 Begin device name setup. 


MOVAB UCBSt CDDB_LINK(RS), R3 
DUTUSGET_DEVNAM Determine device name & unit. 

Lookup that device name. 

Save DDB address. 

Cleanup after name builder. 


MO R4 $ (RS 
CLRO =—- UCBSL_CDDB_LINK(RS) 
CLRQ  —— UCBSLCDDB=LINK+8(R5) 


WAIT_FOR_1I00B ; Obtain write access to the 
: 1/0 database. 


; The el Levine hack allows DUTUSSETUP_DUAL_PATH to be used for this 
3 pet chance uel path — * depends DUTUSLOOKUP_UCB using only 
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the MSCPSW 4 * of a message. 
3 44 L #MSCPSW_UNIT+2, R1 : Fake MSCP message size. 
52 oc MOVAB  <UCB$W ASchuni f - : Fake MSCP message address. 
8 mscPsg UNIT>(R5), R2 

53 GoBc C5 p 4 MOVL UCB . copa(rs), rs ; Get CDDB address too. 
00 3 4 BSBW DUTUSSETUP_DUAL_PATH ; Make last chance check for 

, 4 TSTL R 3: a dual pathed device 
4 4 BNEG 7008 : Branch if dual path found. 
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; Copy UCB address. 
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def 3 BSBW DUTUSGET DEVTYPE ; Determine device type. 
oonf'cs HO Re Re GRC vibe sorcan, | beer toPesyrsce 

i Se address. 

4 fa i AS OD : MOVL CDDBSC CRB CRSS , UeBSC CRBCRS) 3 Setup CRB address. 
O30F 30 BSBW DUTUSINIT_CONN_UCB ; Initialize connection 


— 2— — 


MOVL UCBSL_PDT(RS), RO ; Get POT address. 
MOVL POTSL-MAXBCNT(R ),° ; Copy maximum bytes per 
UCBSL_MAXBCNT(R5) ; count to UCB. 


; N.B. all actions which alter the condition of this UCB with respect 
3; to the remainder of the 1/0 database MUST occur following the call 
; to IOCSLINK_UCB below. This results from the possibility that 


39 0084 (cS (= é dependent fields. 
0084 ¢ opc CO. oD ; 


; IOCSLINK_UCB will determine that this UCB is a duplicate, afterwhich 
; this UCB will be deallocated. 


52 55 00 MOVL RS, R 3; Copy UCB address. 
00000099 "s 16 JSB crocs INK_UCB 3 tink UCB to primary DDB. 
23 50 9 BLBC R : If UCB is duplicate, quit. 
O1DE 0 BSBW DUTUSLINK_UCB2CDDB 3 Link UCB into CDDB chain. 
53 0080 C5 0 MOVL UCBSL_CDDB(RS), R3 Restore CDDB address. 
O2FA 0 DUTUSSETUP_CDP_UCB If needed, setup local 


UCB to class driver UCB 


dual path. 


12 43 OC B63 ; Is init or reconnect ‘‘still"’ 


LDQ AAAAA AA AAAAAAARAA AAA A AAA AAA AAA AAA AAA AA AS 
WO OO O0000 09 09 69 69 69 09 69 69 SI NIN NI SN NENA AAA 


a a a — a a ee a a a dd 
FAN 9 OD NA NES ODNA OD NA NEW QODNAUE UW" OOO 
@ 
wn” 
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ae 


ee ea ah sh dh db hh th tb tb dh dh th dh ah th ah ah ah ah ad ad ada eae) 


0 
BITW #<CDDBSM_INITING - $ 
'CODBSM nt ee = : in progress? 
CODBSW_STATUS(R3) : If so somebody else will fix 
0B «12 8 BNEQ 90$ 3; RWAITCNT and we can skip it. 
68 AS 0400 BF AA BICW #UCBSM_MSCP_WAITBMP, - 3; Else, indicate RWAITCNT no 
4 UCB$W_BEvSTS(R5) ; longer bumped. 
56 AS B87 4 DECW ot al ae —— ; Decrement wait count. 
OD 12 rt BNEQ 88$ : It had better be zero. 
68 AS 0200 8F AA 4 90$: BICW #UCBSM_MSCP_INITING, - : Clear the “‘initing’’ flag. 
3 UCBSW_BEVSTS(RS) 
05 5 RSB 3; dade, dade, dade; that's all 
5 3; folks. 
50 55 9 3 700$: MOVL R5, RO : Found dual path or dup. UCB: 
FBF8 1 2 BRW DEANONPAGED 3: deallocate this UCB and 
: 3; discontinue fork thread. 
5 888$: BUG_CHECK MSCPCLASS, FATAL ; RWAITCNT not zero at end of 
5 ; new UCB setup. 
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DUTUSLOOKUP_UCB = Locate a given MSCP unit on given CDDB chain 
Functional Description: 


The chain of UCBs Linked to the CDDB whose address is input to this 
routine is scanned for a UCB containing a MSCP unit number matching 
the one in the i MSCP message. If such a match is found, the 

address of the UCB is returned in RO. Otherwise, RO is returned as 


zero. 
Inputs: 
R1 size of the MSCP pessogs 
R¢ base address of the MS(P message 
R CD08 address 
Outputs: 
RO address of the UCB with matching MSCP unit number, or zero 
condition-code 


EQL ==> no match found CRO Eo. 0] 
NEQ ==> match found CRO NEQ 0 


ALL registers except RO are preserved 


UTUSLOOKUP_UCB: : 


fe al? al *al* ah sb sb sb sb Ab sb Ab Ab ab sbrah sb sh sb sb ab sb sb sb ab sb sb sh ab eal sb sb sh sn ab sbeap easel 


NNT ITT OAS OC 


PEE EF FUWWMWWMMIWIWIUIRIINININININININININ 2 2 | HOODOO ò 


à ee ee ea heheheh ehhh hh hb dahl dh dich dba cath dh ca clack dich ch dla dadh cde cdl dh clack cd idh clade” dd chal 


— — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — 


ö OOOO 9 ODNOA 9 OO UE WO ODN UE WO 


6 31 #61 CMPW R1, #MSCPSW_UNIT+2 ; Is message big enough to 
18 «oF BLSSu 908 t contain a unit; branch if not. 
50 84 43 9E MOVAB <CDDBSL_UCBCHAIN - : Initialize previous UCB 
“UCBSL_CDDB_LINK>(R3), RO ; address. 
50 00C4 CO 00 64 10$ MOVL YSBSe COCR _L INK CRO) , RO : Link to next UCB. 
OD 1 69 BEQL 0$ : Branch if no more UCBs. 
04 A2 0004 CO 81 98 CMPW UCBSW_MSCPUNIT(RO), - 3 Is the MSCP unit number 
1 MSCP$Q_UNIT(R2) > right? 
Fl oF 71 BLSSU 18 ; If wrong, loop if still worth 
03 14 i BGTRU 908 : looking; else, exit w/ error. 
50 Be 7 TSTL RO : If good, set condition code 
5 4 RSB 3; and return. 
50 D4 8 90$: CLRL RO : Signal UCB not found. 
05 7A RSB ; Return. 
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oB 
3 ; DUTUSSETUP_DUAL_PATH = Reflect dual path access in 1/0 database 
3 ; Functional Description: 
78 ALL UCBs Linked to all CDDBs chained to the Listhead given in RO. 


2 
ao 


(except the CODB whose address is given in R3) is scanned for a UCB 
whose allocation class matches that of the CDDB pointed to by R3 and 
whose MSCP unit number matches the one in the input MSCP message. If 
syeh UCB is found and has not already been dual path chained, the UCB 
will be Suet path chained to input CDDB and its related 1/0 database. 

s already chained to the input CDDB, no action is taken. 
If the UCB is already chained to some other C 6, an “Inconsistant 1/0 
database" bugs Recs is generated. If a UCB is found, its address is 
returned in - Otherwise, RO is returned as zero. 


; Inputs: 
R1 size of the MSCP 2*883 
Re base address of the MSCP message 
R CDDB address 
Implicit Inputs: 
DUTUSL_CDODB_LISTHEAD location containing the system virtual address 
of the CDDB Listhead for this device class 
; Outputs: 
RO address of the dual path UCB, or zero 
ALL registers except RO are preserved 
; WARNINGS: 
This routine does not scan the local node 1/0 database. Therefore, 
only dual path devices which have both paths served by the disk or 
tape class driver will be found by this routine. This feature is not 


needed until the MSCP server becomes capable of issuing access path 
attention messages. 
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| 
The dual path nature of the device may not be reflected in the 1/0 
database immediately upon exit from this routine. That operation is | 
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performed in a fork thread which can become stalled due to Lack of 
nen~poged pool or inablilty to obtain write access to the I/ 
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1: 
5 ; database. When this routine exits, however, the fork thread has been 
3 established and it will complete at some future time. 
335 
re 3 UTUSSETUP_DUAL _PATH: : | 
7t 53 7> 0578 9 mova = RB, = (SP) : Save a few registers. | 
1 8 ft CMPW R1, #MSCPSW_UNIT+2 : Is message big enough to 
42 f + § Bissu 906s 3: contain a unit; branch if not. 
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$ Copy input CDDB address. 
; Initialize previous CDDB addr. 
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MOVL. R3, R46 
SUBL3 #CODBSL_CDDBLINK, = 
Ws <DUTUSDATA + DUTUSL_CDDB_LISTHEAD>, - 


Link to next CDDB. 
Branch if no more CODBs. 

CMPL — RG { 

MOVL $P08SL ALLOCLS(RS), RO 

CMPL RO, CDDBSL_ALLOCLS(R4) 


BSBB PuTUSLOOKUPuCe 


108: MOVL get: R3 


ut coos. 
Can this CDDB dual path? 
Branch if it can't dual path. 
Is it the right alloc. class? 
wrong alloc. class. 
Check for right UCB. 
Branch if none found. 


Get secondar ao 7 ucB. 


SOx HBOS 


NO 


MOVL USBSL cP _CODBCRO), R3 
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8 BNEQ ; Branch if UCB already 
B ; dual pathed 
8 MOVL R4, UCBSL_2P_CDDB(RO) : 
8 CREATE_FORK = 3; the dual path CDDB and start 
87 LINK_2P_UCB, - ; fork thread to dual path 
87 frkbTk = (RO), - : link the UCB into the 1/0 
87 mask = <*M<RO,R1,R2,R5>> 3; database. 

53 8E C1 75$: mMOvVa (SP)+, R3 ; Restore saved registers. 
ee RSB 3; Return to caller. 
3 900$: CLRL RO : Signal no UCB found. 
8 BRB 75$ 3; Then exit. 

54 C9 930$:  CMPL R3, R4 : Is previous dual path CDDB 
eC Bear  75$ : input CDDB? Branch if yes. 
cE 


BUG_CHECK IVDSKCONFG, FATAL Else, bug check. 


| 
| 
Else, setup input CDDB as | 
| 
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LINK _2P_UCB = Fork thread to dual path Link a UCB 
Functional Description: 


Acting in the context of an independent fork thread and using the UCB 
as a fork block this routine establishes the dual path Links for a 
UCB. A suitable DDB is located or created. Write access is obtained 
—34 fe Finally, the UCB is dual path Linked to the 
suitable . 


This routine potentially modifies UCBSL_MAXBCNT, the field giving the 
maximum number of bytes allowed in a single transfer. The current 
value in that field -- which was established when the or inery path was 
discovered -- is minimized with the PDTSL_MAXBCNT field in the POT for 
the secondary path. The effect is to generally use the minimum value 
accepted = the two pashs on which the device is known, 

potential problem exists if the secondary path MAXBCNT value is 
smaller than the primary path value. Some of the in progress 
transfers may exceed the secondary path MAXBCNT. Should control be 
failed over to the secondary path before these transfers complete, 
those transfers could not be performed. However, this risk is deemed 
minimal and will be addressed by a nonfatal bugcheck in the 
appropriate port driver (at the most). 


Inputs: 


RS UCB address (also used as a fork block) 
fork context at IPL$_SCS 


Implicit Inputs: 


UCBSL_2P_CDDB(R5) address of the CDDB for the secondary CDDB. 
Outputs: None. 
Implicit Outputs: 
UCBSL_2P_DDB(R5) altered to point to the secondary path DDB 
UCBSL_2P_LINK(RS) gi seree te ink the UCB into the secondary chain of 
s for 
DEVSM_2P set in UCBSL _DEVCHARE(RS) 
UCBSL_MAXBCNT (RS) minimized with PDTSL_MAXBCNT (pdt) 


WARNINGS: 


The CODGSL 008 in this CDDB must point to at least one valid DDB for 
the dev ges which are (could be) accessed via that CDDB. The major 
implication here is that we can never discard the DU or TU DDB handed 
ys by SYSGEN, et. al. when calling the driver at its controller 
nitialization entry point. 


LINK_2P_UCB: 


ADDL3 #DDBST_NAME, UCBSL_DDB(RS), R3 ; Get address of DDC name. 
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50 00¢9 C D D7 1 3 MOVL uces ays (n5>, RO 3; Get pec, CODB address. 
54 CA p pc 1 MOVL —8 cp p68 (Rd be : Get begi nning DDB address. 
H EO 189 8S8B ; Locate or make secondary DDB. 
OOAO C5 46 oO ; ! 9 MOVL Mariette pe _DDB(RS) 3; Save secnodary DDB address. 
1 ? —— ; Obtain write access to the 
4 ! § : 1/0 database. 
50 oor9 cS 0 7 13 4 MOVL ucB + 2P_ COD me) 3; Get secondary CODB address. 
50 4 7 i) 6 1905 MOVL CoDBSC_PBT(R RO 3; Get secondary PDT address. 
0084 cS 00B8C CO D1 0610 19 : CMPL = PDT$L  AAXBCNT CAO) : Is secondary PDT bytes per 
2 8 cost. MAXBCNT(R 3 3: xfer ler than UcB ve value? 
— 17 1 8 BGEQU 3 Srench, secondary larger. 
0084 cS) 00BC CO «(CD 619 19 MOVL PDTSL_MAXBCNT (RO) : If smaller, make secondar 
L ; bytes per xfer the UCB value. 
1319 ucBs$ “MAXBCNT(R ;* b f he UCB 
52 55 0 6 13\§ 208 MOVL $ Gopy UCB address for Linking. 
goes 9 623 191 BSBW 4 DuTUSL MK SEC_UCB : secondary DDB Links. 
0 E 3 1914 BLBC s enn if error while Linking. 
3c AS 10 ss CB 66 1915 BISL SEVER. 2P, UCBSL_DEVCHAR2(R5) ; Flag device as dual pathed. 
05 ° I3I$ RSB : End fork thread. 
: BUG_CHECK INCON AL : Signal inconsistant . 
62E 1918 9999$: BUG_CHECK INCONSTATE, FAT Si 2 i 1/0 db 
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-SBTTL DUTUSFIND_DDB = Find or create a DDB with the right DEVNAM 
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DUTUSFIND_DDB - Find or create a DDB with the right DEVNAM 
Functional Description: 


Starting with a given DDB, this routine searches a chain of DDBs 
attempting to find a reqyested DEVNAM (DDC = device DD, controller C). 
If the requested DEVNAM is found, t 6 address is 
returned. If the requested DEVNAM is not foun - @ DOB is created with 
attributes egprogriate to the chain of DDBs be ve — The 
created DDB is given the requested DEVNAM and both its primary and 
secondary UCB chains are initialized to be empty. The newly created 
DOB is Linked to the end of the DDB and CDDB chains which begin in the 
input DDB. Finally, the address of the created DDB is returned. 


he corresponding DD 
| 
Inputs: | 
| 
| 


83 address of the requested DEVNAM (a counted ASCII string) 
RG address of the beginning DDB for the search 
RS UCB address (used solely as a fork block) 
Outputs: 
R4 DDB address 
R5 UCB address (unchanged) 


ALL other registers are destroyed. 
WARNINGS: 
Under some circumstances, this routine will fork using the UCB as a 


fork block. Control will be returned to the caller's caller. Upon 
entry, 4(SP) must be the return address for the caller's caller. 
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DUTUSF IND_DDB: : 
009C C5 8ED0 POPL UCBSL_DPC(R5) : Save caller's address. 
5$: WAIT_FOR_10DB : Obtain write access to the 
3; 1/0 database. 
008 38 PUSHR #*M<R3,R4,R6,R7> : Save some registers. 
— 3 MOVL R : Copy DEVNAM address. 
5 6 A MOVZBL (RO)+, R7 ; Get size of DEVNAM, 
11 BRB 15$ 3; Jump into search loop. 
54 38 AG 00 10$: MOVL 9 B51 COM INK CRS), RG 3 Link to next DDB. 
3 1 9 BEQL : Branch if no more DDBs. 
14 44 OS 91 71 15$: CMPB R7, DDBST_NAME(R4) : Is DDB DEVNAM the right size? 
fF as BNEQ 108 : No, go try next DDB. 
18 44 66 57 7 CMPCS) 87 (RO), DDBST_NAME+1(R4) : Does the name match? 
2 ne BNEQ 10$ : No, go try another DDB. 
00c3 BF BA 76 POPR #*A<RO,R1,R6,R7> 3: DEVNAM match found, restore 
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JMP @UCBSL_DPC(RS) 
POPR #*M<R3,R4,R6,R7> 
MOVZBL #DDBS$K LENGTH, R1 
J$8 GPEXESALONONPAGED 
ipc 8OéiR $ 
PUSHR #*M<R2,R5> 
Ova = R3, = (§P) 
MOVC3 #DBBSK_LENGTH, (R4), (R2) 
POPL 
MOVZBL (R3)+, R4& 
RODS #ODBST_NAME+1, 4(SP), R2 
MOVCS) RG, (R25 
POPR #*M<R3,R4,R5> 
CLRL  —- DDBSL_CONLINK(R4) 
ASSUME DDBSL UCB EQ <DDBSL_LINK+4> 
CLRQ = DDBSLLINK(R4) 
CLRL DDBSL=2P NUCBCRS) 
MOVL 
TSTL BOBS LINK(RO) 
BEQL 4 
MOVL DDBSL_LINK(RO), RO 
MOVL  R4, DDBSL_LINK(RO) 
TsTL DDBSL_CONLINK(R3) 
MOVL DDBSL_CONLINK(R3), R3 
MOVL  R4, DDBSL_CONLINK(R3) 
JMP @UCBSL_DPC(RS) 


FORK_WAIT 
BRwW 5$ 
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Bete Se Ge Se Ge Se Ge Ge Ge Ge Se Ge Se 


Pete Ge Ge Se Ge Ge 


; saved peop sters. discard 
saved RS & R4, and return. 


No DEVNAM match found: 

Restore saved registers. 

Get size of a DDB so that 

a DDB can be allocated. 

Branch on at Location error. 
Save interesti syne Fesisters. 
Save input DEVN DDB addrs. 
— or greet DDB into 

newly created DDB. 

— fg) DEVNAM addr. 
Get size o EVNAM. 
Locete DEVNAM in new DDB. 
Insert requested DEVNAM. 

Rest. old/new DOB & UCB addrs. 


New DDB will end CDDB chain. 
New DDB will also end DD 
chain. Null primar = Link. 
Null secondary UCB Link 


Init for DDB chain scan. 
End of DDB chain? 

Branch if end of chain. 
Else, Link to next DDB. 

and loop 

Put new PDB on end of chain. 


End of CDDB chain? 

Branch if end of chain. 
Else, Link to next DDB on 
CDDB chain and Loop. 

Put new DDB on end of chain. 


Return to caller. 


Memory allocation failure. 
Wait a Little while using 
the UCB as a fork block; 

then try looking for the DDB 
again. Someone else m 

have created the DDB —3 le 
we were waiting. 
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-SBTTL DUTUSLINK_SEC_UCB = Link UCB to secondary DDB chain 
DUTUSLINK_SEC_UCB = Link UCB to secondary DDB chain 
Functional Description: 


perce secondary UCB List pointed to 
l n 


nk input UCB 


Inputs: 
R2 


to List in ascending 


Address of UCB to be Linked 


Implicit Inputs: 

UCBSL_2P_DDB(R2) Address of DDB on which UCB will be hung as a 
secondary 

UCBSW_UNIT(R2) Unit number for UCB 

1/0 database available for write access 


Outputs: 
RO 


i 


by DDB referenced in input UCB and 
unit number order. 


SSS_NORMAL ==> Link operation successful 


SS$_OPINCOMPL ==> Link operat 
with same unit number 

Address of ucB following this 

Address of this UCB 

Address of bce preceding this 


Implicit Outputs: 
UCB Linked in to secondary UCBs chain. 
ALL non-output registers preserved. 


SUBL3 
64 20$: MOVL 
65 MOVL 
6 BEQL 
6 CMP 
6 BGTRU 
— BEQL 
0 50S: MOVL 
71 MOVL 
7 MOVZWL 
? $B 
75 90$ MOVZWL 
RSB 


DUTUSLINK_SEC_UCB:: 


— 2P_LINK=- sDDBSL -2P_UCB>, 
BSL_2P_DDB(R2), Get 

: Sav 
est? “2P_LINK(R3), : Get 


CBSW_UNIT(R2), UCBSW_ qe be 
0$ If 


ze 3; If 
cues 4 LINK(R : Els 
UCBSL- | pee 3; For 

3 HORAK” : Set 
3; and 

#SS$_OPINCOMPL, RO : Set 
3 and 


ion failed due to presence of UCB 
one in the List 
one in the List 


address of first UCB Link. 
e address of previous UCB. 

address of next UC 
==> _end-of “list reached; go insert. 
) ; gompore unit numbers. 
new G ist, continue seorch. 
new EQ List, declare erro 
e, Link UCB. Forward link” new UCB. 
ward Link previous UCB. 

successful Link status 

return 


Link failed status. 
return. 


v0 


hos 


cr 
wr 
o 

T=) 
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«SBTTL DUTUSLINK_UCB2CDDB = Link a UCB into a CDDB chain 


ah 
DUTUSLINK_UCB2CDDB = Link a UCB into a CDDB chain 
Functional Description: 


This routine Links the UCB pointed to by R5 into the chain of UCB 
neng ing off the CDDB pointed to by UCBSL_CDDB(R5). The chain is 
maintained in ascending MSCP unit number order. 


Input Parameters: 


RS UCB address 
IPL IPL$_SCS 


Implicit Inputs: 


UCBSL_CDDB(RS) address of the CDDB anchoring the chain of 
UCBs on which the UCB should be hung 


Output Parameters: 

IPL IPL$_SCS 

RO-R1 destroyed. 

ALL other registers preserved. 
Implicit Outputs: 

UCB Linked into CDDB units chain. 


Completion Codes: 
NONE 


Side Effects: 
NONE 


0 
g 
4 
DUTUSL INK_UCB2CDDB: : 


ADDL3 #<CODBSL_UCBCHAIN - 
DDB _LINK>, - 


0 “-UCBSL 

1 UCBSL_CBDB(RS), RO 
§ 108: MOVL 

4 

5 

5 

9 

} 

2 


50 O008C CS’ FFFFFF84 BF (C1 Initialize previous UCB 


address. 


Save -cevious UCB address. 
Link to next UCB. 

Branch it no more UCBs. 

Is this MSCP unit no, bi as" 
than no. in this chain UCB? 
Branch if bigger. 


Point new UCB to next UCB. 
Point previous UCB at new UCB. 


RO, R1 
MOVL CBSL_CDDB_LINK(R1), RO 


CMPW © UCBSW_MSCPUNIT(RS), - 
UCBSW_ASCPUNIT (RO) 


an 

zw 

— — 

—~ 
* 
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cu 
29 
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YY — 
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nk a secondary 14S 9 DRIVER. SRC JDUTUSUBS .MAR; 2 (13) 
ſ »SBTTL aia = Unlink a secondary UCB 

; DUTUSSEVER_SEC_UCB = Unlink a secondary UCB 

; Functional Description: 


Remove UCB pointed to by R5 from UCB secondary List pointed to by DDB 


referenced in UCB. 
Inputs: 
R5 Address of UCB to be unlinked 
Implicit Inputs: 
UCBSL_2P_DDB(R5) Address of DDB on which UCB is hung as a secondary UCB 
1/0 database available for write access 
Outputs: None. 
Implicit Outputs: 
UCB unlinked from secondary UCBs chain. 
RO - R1 are destroyed. 


DUTUSSEVER_SEC_UCB: : 


50 O00A0 CS 00000064 8F (C3 SUBL3 — 2P 83 -2PU UCB>, 
CB$L_2P_DBB(R5), 3; Get * address of first UCB Link. 
51 50 10$: MOVL R ; Save address of last UCB. 
50 00A4 C1 00 MOVL Ucésy 2P_LINK(R1), RO : Get address of next UCB. 
> Ft CMPL : Do the UCB addresses match? 
F3 is BNEQ 10 : Branch and loop if no match. 
OOA4 C1 00A4 (5 OD MOVL UCBSL_ i. LINK(RS), = ; Else, remove UCB from UCB List. 


UCBSL~2P"LINK(R1) 


a ee el a a a a ad | OFT 
SND PDA DDD AAA DTI BB BS BBE EIA 
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-SBTTL DUTUSSEVER_CDDB = Sever UCB from CDDB chain 
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cu 
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DUTUSSEVER_CDDB = Sever UCB from CDDB chain 

; Functional Description: 

This routine severs the UCB pointed to by RS from the chain of UCB 
hanging off the CDDB pointed to by UCBSL_CDDB(R5). The chain is 
maintained in ascending MSCP unit number order. 

; Input Parameters: 


R5 UCB address 
IPL IPL$_SCS 


: Implicit Inputs: 

; UCBSL_CDDB(RS) address of the CDDB anchoring the chain of 
; UCBs from which the UCB should be unlinked 
; Output Parameters: 

3 IPL IPL$_SCS 


RO-R1 destroyed. 
ALL other registers preserved. 


OWOOOODOOO OO OCDBWOOOOODODOoy VY OM 


DWONA NEW" OOODNAUE WH OOONOUM 


; Implicit Outputs: 

UCB unlinked from CDDB units chain. 
; Completion Codes: 

: NONE 


CSOooooooooo 
OOD O OONAUE WN O 


; Side Effects: 
NONE 


DUTUSSEVER_CDDB: : 


ADDL3) #<CDDBSL_UCBCHAIN - ; Initialize previous UCB 
“UCBSL_CDDB_LINK>, - ; address. 
UCBSL_CBDB(RS), RO 


PPRAE_EPALXRPXAPEDRAA AAA AAA AAA AAA AAAAA AAA AAA AA AAA AAA OA 


50 OOBC CS” FFFFFF84 BF C1 


— —2— — — — — — — — 


51 50 + 0 10$: MOVL RO, R1 : Save previous UCB address. 
50 —8 i D 1 MOVL  UCBSL_CDDB_LINK(R1), RO : Link to next UCB. 
D1 § CMPL RO, RS 3: Is this the severed UCB? 
F 12 Z BNEQ 10$ : Branch if not found right UCB. 
00c4 C1 0004 C5 00 5 80$: MOVL UCBSL_CDDB_LINK(RS), - ; Make previous UCB point to 
§ ae UCBS$L_CDDB_LINK(R1) ; UCB after severed UCB. 
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-SBTTL Default device name and device type tables 


—oo 


Below the default device name and default device type tables are 

yt Rp se GET_DEVNAM uses the —3 t device name table * provide 
ovis e name whenever the MSCP media id does not provide o 

butt GET_DEVTYPE uses the default tidevice type table to provide a 

device type whenever the MSCP media annot be translated into 

device type. The tables provide for generation of a different device 

name and device type for each MSCP controller model. 


Be Se Oe Oe Se See Se Sete 
J 


+ 
MACRO DEF _DD_DT 
Functional Description: 


ae macro defines the tables used to ‘‘force’’ a guice name and device 
—F e whenever the MSCP media identifier is inval For 

4 USGET eee entries are 1e6 ed in the word — table pointed to 
DUTUSAW_DEF DEVNAM. for D TUSGET DEVTYPE entries are placed in 
Bee entry “Peote pointed to by DUTUSAB_DEF_DEVTYPE. This macro 
automatically constructs patch space in both tables. 


368 DEF _0D_DT LIST 
per F AONE Aidt dd, dt 
‘ae LENG! 


$$2 Qn HEF ” DEVNAM_ TABLE RD,WRT,EXE,LONG 
ar, *ttrlindl'2>~ 


ASCII 
$B81GDD= 


“LIF - — 
-PSECT $58290°0 DEF “be vivPE TABLE RD WRT, EXE , LONG 
-EMSCPSK CH tc 


4(( sees =-S$0100r, $$BIGDT=. 

gape Deron 

*PSECT $35220_ DEF _DEVNAM_TABLE RD,WRT,EXE,LONG 
AW DEF _DEVNAM 


-PSECT $$$220 DEF _DEVTYPE_TABLE RD,WRT,EXE,LONG 
B DEF -DEVTYPE: : 


**iRp ITEM, <LIST> 
DEF ONE ITEM 


FUSSY 


ory OP 
= y A 


. WORD 0,0 
PSECT Oe. 20 ber _DEVTYPE_TABLE RD,WRT,EXE,LONG 


BYTE 0, 0, 0, 0 
-ENDM = DEF_DD_DT 


Sa itn itn tn itn in itn itn itn iin Din Din Bin Dn Dn in Din Din in Dini iin ii Din Di init in. Din Din Btn tn itn inn Stn, itn Bin Binnie nit Bit tin Bin Hite tn Ditn tein ie 
—— 


RO O OOD NAN EWN SO OD NIA o—— 
. 
33 


DODO SII NSP PPP BE PEPE EE 
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rt : ; Build the tables | 
i 5 — 00 T AsCS0. <Du>. RAGO > | 
dd : < UDA30, <DJ>, RAG0 >. = 

7 < RC2 <DA>, RCF25 >, - 

77 0 < mULA, <DY>, RX >= 

77 91 < TU 5 TUu8i >, = 

77 3% < UDAS2, <DJ>, RAO >. - 

77 9 < RORX, <DU>, RD51 >. - 

775 94 > 
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-SBTTL DUTUSGET_DEVNAM = Form new unit device name, DDCn 


SELES 
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DUTUSGET_DEVNAM = Form new unit device name, DDCn 
Functional Description: 


Using the MSCP media identification, UCBSL_MEDIA_ID, and MSCP unit 

pe rs He UCBSW_MSCPUNIT, fields this routine builds a VMS device name 
of the DOCn form. Utne DOC’ is stored as a counted ASCII string based 
at : the address input in R3. The ‘'n'’ is stored as an unsigned integer 
at UCBSW_UNIT in the input. ucB. 


Inputs: 

4 base address for DDC counted ASCII stri 
letter) 

R5 UCB address 

Implicit Inputs: 
UCBSL_ ay ¢ R5) CDDB address 
UCBSL-MEDIA_ID(RS) MSCP media identification 
UCBSW “ASCPURI TC R5) MSCP unit number 


For emulated devices the MSCP unit number is assumed to have one of 
the following two forms: 


SSNS NNN 
SSNS NESSES 0 et 


üEXEXEXXEXXEEXEEECEEEEEEEEEEEEEEEEEEEEEEELELEELLEEELELELLL 


REEE—⏑————⏑—⏑— ——⏑——... —⏑ü⏑ü————— 


G NEU O — WIN OOD ⏑ WO ODNO UE WO 


öOOIOIOOIOMOOIOOSIOSOSOOOOOCOCOCOCOCOOOOSOSOSOSOSOOOOOOOOOOOSOOOIOOSOSOSOIOIOOOSOOCOSOOSO SSO 


15 14 12 11 87 4 2 0. with 
teoweefosamowe mae pewmomaacnszae Ce oe RScPsn, EU_ CTYPE 
, SHAD: EU_ DESIG ° ! EU_CTYPE ! iv. SUBC H 3 Cu. sueU : H eques 
——— ——— —— — —— M CPS$k EMD OLD 
15 14 12 11 87 0 with 
Gowan tosoereneae $eeseecaacce= poses nam some wmowomne + — EU_ hale 
:SHAD: EU_ =DESIG * ! EUL CTYPE : ! EU_NO ! equal t 
—— —— ——— ——— ———— ———————— — + ASCPS vEMD 80 

aA SHAD is — .S, LSHADoOu and is one if the unit is a shadow unit 

77 EU_DESIG is msrrecy $,M]_EU_DESIG and is a number representing the 

77 conteot ler letter used for the device on the node hav ng 

77 dire acees s (i.e. not MSCP sqrved access) to the device. 

77 EU_ crvet is ngcP V.S. 1 -EU_CTYPE and is a constant representing the 

77 pe of controll ér Use t — the device on the node having 

77 j 5 access to the dev The current choices for 

77 MSCPSM_EU CTYPE are MSCPSK. _EM D_OLD, MSCPSK_EMD_UDA, 

of Hh il a “END “Roni Rom -EMD-AZT" (for AZTEC); and 

77 EU_NO is nSCPSCV,S —— and is the served unit number for all 

77 yalue sof rast EU. CTYPE E except MSCKSK_EMD_OLD. 

77 EU_SUBC is MSCP JEU S$ a constan at giv 2. a 

77 su — * “type ~Sue¢ 3 6 U_CTYP ce s MSCKSK_EMD_OLD. 

77 The current choices for MSCP Ua svec are MSCPS$K-EMS_RP 

77 MSCPSK_EMS_RM RSCPSK _EMS_RK, ASCP K_EMS_RL, MSCPSK_EAS_AXx, 

77 and MSCPSK™ “EMS_CNS 


] 

| 

| 

| 

| 

— | 

A prototype DDB address (used to determine default controller 
| 

} 

| 
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EU_SUBU is MSCPSCV $f) .6U.sueU and is the served unit number when 
MSCPSM_EU_CTYPE~ is “MSCKSK_EMD_OLD. 


Outputs: 


RO through R2 are destroyed. 
ALL other registers are preserved. 


Implicit outputs: 


WI OO NOAUSE UW ? 


(R3) DDC counted ASCII string 
UCBSW_MSCPUNIT(RS) VMS unit number 


The 0D gortion of ‘DDC’’ is taken from DO and D1 in the MSCP media 
identifier (see the MSCP specification if this does not make sense). 
The “C’’ portion of ‘DDC’ is S whenever MSCPSV_SHADOW is set 
(regardless of serving mechanism). Otherwise, the ‘'C’’ portion is A 
for non-emulated devices and the appropriate MSCP$M_EU_DESIG Letter 
for emulated devices. The unit number is UCBS$W_MSCPUNIT .and. 
“C<MSCPSM_SHADOW> for non-emulated devices, UCBSW_MSCPUNIT .and. 
MSCPSM_EU-NO for emulated devices with MSCPSM EU CTYPE not equai to 
MSCPSK_EMB_OLD, or UCBSW_MSCPUNIT .and. MSCPSA_E0_S 
devices with MSCPSM_EU_CTYPE equals MSCPSK_ 


Note: this routine never uses MSCPSM_EU_DESIG, or MSCPSM_EU_SUBC. The 
media identifier is used instead. 


o PRGA 
Pa 2 2 


2* 
NOUS OOo 


SSN 
aS SS i > pp ip SS i i i i | 


EFF FB 8 II—————— 


—2—— 
—R 


a 1 DUTUSGET_DEVNAM: 
77 MOVL UCBSL_CDDB(RS), R2 3; Get CDDB address. 
77 4 MOVB ) 3 pocup string byte count. 
77 5 MOVZBL CDdbB$B CNTRLMDL(R2), RO ; Get MSCP server ctrl. model. 
§ MOVW W*DUTUSAW_DEF_DEVNAMCROJ, 1(R3) ; Set default ‘DD'’ value. 
7 8 EXTZV #MSCPSV_MTYP_DO, - ; Pickup first character of 
7 3 #MSCPS$S_MTYP_DO, - 3; perfered device mnemonic. 
7 0 yCBSL_MEDIA_TD(RS), RO 
15 13 07 91 BEQL $ : Branch if no first char. 
01 Ad 50 40 8F 81 O7 35 ADDB3 #*a/A/-1, RO, 1(R3) 3; Store first character. 

50 008C CS 05 16 EF 9 9 EXTZV #MSCPSV_ATYP.D1, - ; Pickup second character of 
7 94 #MASCPS$S_MTYP_D1, - : perfered device mnemonic. 
79E 2395 BSL_MEDIA_TD(RS), RO 


79 38 BEQL $ : Branch if no second char. 
ADDB3 #*a/A/-1, RO, 2(R3) : Store second character. 


13 
02 a5 50 40 8F 81 
9A O7A6 39 30$: —8 DDBST _NAME (R4) 


Get offset to controller let. 


0 
$2 00BC C5 0 
oO 90 
5026 A2 9A 
01 a3 0000°CF40 80 
50 oosc cS 05 «(1B COEF 


14 R 3 
z AS 1 A440 90 O7AA 24 , V SOBST NAME CRODERGS. 3(R3) 3; Setup default C. 
7 00D4 C5 E1 078 4 BBC #MSCPSV_SHADOW, - : Branch if not a shadow 
rs : UCBSW ASCPUNIT (RS), 35$ > unit. 
03 43 53 9 4 MOVB —3 (R3) 3 Else, set C to be ‘’S"’, 
5 11 0788 2404 BRB 0 : and (ook no farther. 
26 A2 04 91 rep 405 35$: CMPB #ASCPSK_CM_EMULA, - 3 Is this the emulator? 
7C1 26 6 DoBSB_CNTRLMDL (R2) 

- 12 43h 4 N : Branch if not emulator. 

50 0004 (5 03 C 8 «€CGF:OC#é7¢ 4 3 EXTZV #MSCPS$V_EU_DESIG, - ; For emulator, get C _ 
7CA 24 #ASCPS$S_EU_DESIG, - : from encoded MSCP unit 
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$U_MSCPUNIT(RS), RO ; 
ADDB3 #*a/A/=1, RO, 3(R3) 


50$:  BICW3 #MSCPSM SHADOW, - 
UCBSw_MSCPUNIT(RS), RO 


ast X 


13 
03 AS 50 40 oF 81 
50 0004 c5 8000 BF AB 


QS 
ad 
ad 
‘co 
po) 
Ne 
2 


9 
6) 


number. 
Branch if no encoded C. 
Else, set encoded C. 


Get least restrictive 
ossible unit number. 


@ 
m 
oO 
— 
— 


26 A2 O04 91 CMPB @ASCPSK_CM_EMULA, - 3; Is this the emulator? 
SDDBSB_CNTRLMDL (R2) 
13. «12 BNEQ $ : Branch if not emulator. 
50 7F00 BF AA BICW #<MSCPSM_EU_DESIG - ; Otherwise, clear never 
ieee ee EU_CTYPE>, RO : used unit number fields. 
ASSUME MSCPSK EAD 01D £0 6 : Next, determine whether 
0004 CS or oo BF 83 BITW  #MSCPSA_EUCTYPE, - : whether or not EU_NO is 
$w_MSCPONIT(RS) > correct. 
- a BNEQ ; Branch if EU_NO is right. 
50 oore FOAA BICW #MSCPSM_EU_SUBC, RO ; Else, clear EU_SUBC too. 
54 A 0 B80 59$:  MOVW RO, UCBSW_ONIT(RS) : Establish VMS unit number. 


SN = 
WwMMMMMMMMoOCVTVTVVIMOS — 
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@ 
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; Return to caller. 


aut 


00000000 
0000 


DISK/TAPE 
DUTUSGET 


CL 
EV 
4 
FE 
7FE 
? 


FE 
7Fe 
7Fe 
7Fe 
7Fe 
7FE 
7Fe 
7FE 
7FE 
7FE 
7Fe 
7Fe 
7Fe 
7Fe 
7Fe 
7FE 
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-SBTTL DUTUSGET_DEVTYPE = Translate media-id to a device type 


DUTUSGET_DEVTYPE = Translate media-id to a device type 
; Functional Description: 


This routine converts the MSCP media identifier stored in the input 
UCB into a VMS device type which is stored in the input UCB. 


; Inputs: 

: R3 UCB address 
: Implicit Inputs: 

; UCBSL_MEDIA_ID(R3) MSCP media identifier value to be converted 
3 UCBS$L~CODB(R3) CDDB address 

3 CODBSB_CNTRLMOL(cddb) MSCP controller model 


MSCP media identifier to VMS device type conversion table in .PSECT 
$$$220_DEVTYPE_TABLE_01 


Outputs: 
UCBSB_DEVTYPE(R3) 


RO is destroyed. 
ALL other registers are preserved. 


VMS device type 


; Locate conversion table 


. SAVE 
“PSECT $$$220_DEVTYPE_TABLE_00 RD,WRT,EXE,LONG 
DUTUSDEVTYPE_TABLE: : 


: Add some patch space to the conversion table 
-PSECT $$$220_DEVTYPE_TABLE_02 RD,WRT,EXE BYTE 
REPEAT 


LONG 
“BYTE 
“ENDR 


» RESTORE 


7a 
| 


| 
| 
| 
| 


j 
| 


| 
| 
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oyrusues DISK/TAPE CLASS DRIVER SUBROUTINES 16-$ attr 90: 33: 9¢ es Macr 68 Page 36 
DUTUSGET_DEVTYPE = Translate media-id to 14-SEP-1 DRIVER.SRCJ Du YUSUBS MAR: 2 ( 1 
rt ri DUTUSGET_DEVTYPE:: | 
50  0000°CF 9 7FB 36 MOVAB wW*DUTUSDEVTYPE ABLE, RO : Get conversion table address. | 
41 A3 7FD 26 CLRB yee B_DEVTYPE(R ; Assume look up failure. 
06 11 — BRB ; Jump into table lookup Loop. | 
28 0 4 § 10$: INCL RO : Skip unused DEVTYPE value. 
8 D 4 TSTL (RO) ; Check for end of table. 

1 4 3 BEQL 90$ 3; Branch if end 9 fable. 
80 008C C ) 489 15$: CMPL y BSL_MEDIA_ID(R3), (RO)+ : Is this nedie-t ne fas table? 

f 1 D 24 BNEQ $ : Branch if not r d. 
41 a3 6 4 49 MOVB (RO), UCBSB_DEVTYPE(R3) 3 Store that Sevivee 
: 8 RSB ; Return. 
1? $32 3 Didn't find media match: use default. | 
50 O00BC C3 0 14 $36 90$: cDDBE CDODB(R3), RO ; Get CDDB address. 
50 26 ag A 0819 269 MOV BL CDDB g. CNTRLADL (RO) ; Get controller model. 

41 43 OO000'CFS 90 1D MOVB W*DUTUSAB pty CT YPEEROI, 3; Setup default device type. 

$ 49 UCBSB LOEVTYPETR 
05 4 2500 RSB ; Return. | 


| 
| 
| 


nN 5 | 
—R DUTUSINIT CONN: UCB = initialize connect! IneSEPcl9b6 So:00:57 FORIVER. SaeTouvosuss.mar;2 2° (Fa). 


-SBTTL DUTUSINIT_CONN_UCB = Initialize connection dependent UCB fields 


+ 
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DUTUSINIT_CONN_UCB = Initialize connection dependent UCB fields 
Functional description: 


This routine initializes those UCB fields which vary with connection. 
It is called whenever the connection currently in use for a given UCB 


Implicit Inputs: 


toed att CDT address for ‘current connection 
CDODBSL_PDT(RS) PDT address for ‘current connection 


| 
Outputs: | 
ALL registers preserved. | 

| 


changes. 
Inputs: 
RS UCB address | 
R CODB address for ‘‘current’’ connection | 
| 


Implicit Outputs: 


UCBSL_COT(RS) CDT address for ‘current connection 
UCBSL_PDT(RS) PDT address for ‘‘current connection 


DUTUSINIT_CONN_UCB: : 


MOVL CDDBSL_CDT(R3?, UCBSL 
MOVL  CDDBSL-PDT(R3). L 


RSB 


_CDOT(RS) ; Plant CDT address in UCB. 
_PDT(RS) ; Plant PDT address in UCB. 
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-SBTTL DUTUSSETUP_CDP_UCB = Setup remote/local dual pathed device 


Dd 
uc 


DUTUSSETUP_CDP_UCB = Setup remote/local dual pathed device 

Functional Description: 
This routine scans the local 1/0 database for a possible local path to 
a MSCP accessed device. If such a local path is found, both the MSCP 
— UCB is altered to point to the local UCB and marked offline. The 
ocal UCB is also altered to point to the MSCP path UCB. 

Inputs: 


R3 CDDB address 
R5 address of a MSCP UCB 


Implicit Inputs: 


UCBSL_DDB(R5) DDB address for the MSCP device 
1/0 database locked for scan access 


Outputs: 


RO = R2 destroyed. 
ALL other preserved. 


Implicit Outputs: 
If a local UCB is found: 


‘Cd Cd Cd Cd C9 CD Cd Cd Cd Go Cd GD Cd Cd Gd Cd CD CD CD CO CD CO COCO CD CD CD CD ODCDCDCNCDCDCDCD 6m p> 
AAA AIAANIN IAI WIAA AIA NII NI ANNA AA AANA 1 


UCBSL_ 
Notes: 


0 
UCBSL_2P_ALTUCB(R5) is set to point to the local UCB 
§ UCBSM_2P and UCBSM_CDP in UCBSL_DEVCHAR2(R5) are set 
UCBSL_2P_DDB(R s set to point to the local DDB 
4 UCBSM_ONCINE in UCBSL_STS(R5) is cleared 
UCBSL_2P_ALTUCB(local=UCB) is set to point to the MSCP UCB 
UCBSM_2P in UCBSL_DEVCHAR2(local-UCB) is set 


P_DDB( LocaT-UCB) is set to point to the MSCP DDB 


DOQOOOOCOOOOSOSOSOOSOSOSOSOOSOSOSOOSOOOOOOOOOOOSOOOOOOSoO “Ue, 


This routine has been coded with a seperate local UCB lookup 
subroutine in the hope that the routine can eventually be replaced 
with a call to an exeuctive routine. 


See Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Sse Ge Se Ge Ge Ge Ge Ge 
+ 


DUTUSSETUP_CDP_UCB: 
CMPB #MSCPSK_CM_EMULA, - ; Only disks served by the MSCP server 
CODBSB_CNTRLMDL (R3) can possibly have a local UCB. The 
BNEQ 98 local UCB does not count if the it 


represents UQPORT access to a device, 
since such devices are already 
serviced by the class driver. 


PUSHR #*M<R3,R4 + R7,RB> : Save some registers. 
MOVL  UCBSL_60B(R5S, RO : Get DDB address. 
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RIVER SUBROUTINES, Ve=$Eb=138¢ 98:09:97 EDRIVER. eRe aDUTUSUBS..maR: 2 
cation ¢ 
f allo 


oes. somata RB 
DDBS$T NAME (RO) , 
UCB$WUNIT(R5) 

L OKUP_LOCAL 5 re 

90$ 

#DEVS 

RS, UCBSL_ P _ALTUCB(R 
RO, seVin toe” ZALTUCB(R5) 
ae D SCHARZ(RS) 
UCBSL =DEVEHARZ(ROD 


2 
m 
* 
me 
< 
: 
=> 
= 
> 
2” 
e.. 


S°NCRS,RG.RG,R7 RED 


; Get allo 


Vv 


las 
cation’ class not unique. 


; Attempt to f 4 a local UCB. 
; Was a local UCB found? 

; Branch if no local UCB found. 
; Branch if the local UCB found 
UCBSL VBEVEHARZ(ROD, 90$ ; 


is a class driver UCB. 


; Else point UCB’s at each other. 


; Mark the MSCP UCB to show that there 
; is a local path to the device and 

; it represents a dual pathed device. 
; Mark the local UCB to show that it 
; represents a dual pathed device. 

: qoty cB Sernete path DDB pointer 

; in 

; Setup alternate path DDB pointer 

; in local UC 

: Mark the MSCP served UCB as being 

; unusable. 

; Also make allocation and channel 

; assignments im — on the 

; MSCP server UC 


; Restore registers. 
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DUTUSSETUP_CDP_UCB = Setup remote/local 13 $Eb =} 382 —— —VV— — 3) | 
344 
; LOOKUP_LOCAL_UCB = Search for a local UCB | 
6 ; Functional Description: 
6 : : This routine searches the local 1/0 database for a UCB whose 
: 3 allocation class, and unit name, DDCn form, match those input. 
? § : Inputs: 
6 8 ; Rg desired unit number 
639 ; R address of desired DDC counted ASCII string 
: orf 3 R8 desired allocation class (presumable not zero) 
a) ; Outputs: 
ote ; RO address of a UCB meeting the criteria (or zero) 
5 646 ; RO through R4 are destroyed. 
5 8 ALL other registers are preserved. 
Hi es : Notes: 
885 2651 : Hopefully, the fullness of time will allow this routine to be 
base $36 3 replaced by a similar routine in the executive. 
ie 
0883 $33 LOOKUP_LOCAL_UCB: 
es $39 ASSUME DDBSL_LINK EQ 0 
54 00000000'°GF ODE z $28 MOVAL G“IOCSGL_DEVLIST, R4 : Get initial DDB address. 
54 664 00 Ht 660 10$: MOVL DDOBSL_LINK(R4), R4 ; Get next DDB. 
A 1 8F 2661 BEQL 90$ : Branch if no more DDBs. 
3C AG 8 01 91 666 CMPL R8, DDBSL_ALLOCLS(R4) ; Right allocation class? 
F512 93 6 BNEQ 108 : Branch if wrong allocation class. 
14 44 67 231 2 664 CMPB (R7), DDBST_NAME (R4) ; Right ‘DDC”’ string size? 
EF 12 665 BNEQ 10$ ; Branch if wrong ‘‘DDC’’ string size. 
51 67) «9A MOVZBL (R77) ; Get ‘DDC’ string size. 
15 a6 O1A7 51 29 CMPC3. R11, {(R7), - ; Right ‘DDC’ name? 
DDBST_NAME+1(R4) 
E46 12 BNEQ 10$ : Branch if wrong ‘DDC'’ name. 
50 D&G AG 9E 49 MOVAB <DDBSL_UCB - : Initialize UCB address. 
é “UCBSL-LINK>(R4), RO 
50 30 A0 00 4 208: MOVL UCBSL LINK CRO) , RO : Get next UCB address. 
9 1 5 BEQL 0$ ; Branch if no more UCBs. 
54 40 6 81 § CMP Be UCBSW_UNIT(RO) : Is this the right unit? 
1A BGTRU § § : Branch if more units to check. 
01 ig 8 BNEQ 0$ : Branch if not right unit. 
0 RSB ; Return if unit found. 
50 D4 ° 90$: CLRL RO 3; Indicate no UCB found. 
05 2 RSB : Exit 
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SSBTTL Cancel-CDRP Definitions 
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The ype IRP/CORP pair +~ cancel-CDRP) allocated to represent a 
cance 2 is used only by the class driver. It should never be 
seen b ony 91 fe fhe tandard VAS 1/0 processing —— Therefore, 
severa el n the cancel-CDRP are resued to represent elements 
of the 2 omens 


Canceled bate pairs requiring an ABORT command also have a field 
reused. It is the 1/0 queue forward Link. These IRP/CDRPs will be 
returned to thee —24 of cancel processing before that field is need 
for another purpose. 


These field redefinitions are 22 below. These definitions 
apply only to the cancel routines which follow. 


3 Define CODB cancel queue Links 
ASSUME CORPSL_IOQBL EQ <CDRPSL 1OQFL ; Da 
ttn aes TOOBL A + <IRPSL_IOQFL 
CORE $L_C NIOGFL DRP FL 
IRPSL_CANIOQFL = IRPS$L_I 
IRPSL_CANIOQBL = IRPS$L_IOQBL 

Define send an ABORT command queue header. 


SUME CORPSL_OBCNT EQ <CDRPSL ABCNT + 4> 
SUME IRPSL_OBCNT EQ ae AaCN NT + 4> 


; Sebien ABORT sent queue header. 


SSUME CORPSL_I0ST2 EQ separ) 10ST) ; Ra 
tale IRPSL_TOST2 Seat Pst 10ST + 


RPSL_CAN_RSPID = CORPSL_SEQNUM 
P$L_CAN_RSPID = IRPSL_SEQNUM 


; Define CANIO CORP packpointer (for canceled IRP/CDRPs only). 
DRPS$L_CANIOCDRP = CORPSL_IOQFL 
IRPSL_CANIOCORP = IRPSL_IOOQFL 


i petting lace to save RSPID of canceled MSCP command. 
I 
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DUTUSCANCEL = Cancel 1/0 Routine for class drivers 
Functional Description: 


This is the driver cancel 1/0 routine for the disk and tape class 
drivers. It is called directly from the SCANCEL system service (due 
to the vector information in the class driver DDT. 


Cancel processing intersects with other significant class driver 
operations inclu ing device failover, reconnection processing, and 
host initiated bad block replacement (for disks only). General 
speaking, these interactions are deliniated in this routine and the 
routines which follow it. However, the bad block replacement code is 
in DUHIRT (due to the Limited nature of its relivance). 


The multi-threaded nature of the class drivers significantly 
complicates processing for the cancel function. he requests to be 
canceled must be located in any one of several different places. 
Several different requests can be currently active. Several requests 
can be stalled waiting for resources. 


As requests to be canceled are located they will either have an 
associated MSCP request pending in the remote server, or for any one 
of several reasons, they will not have associated MSCP server 
requests. When an associated MSCP server request exists, an MSCP 
ABORT command must be sent to the remote server. Otherwise, the 
request can be completed immediately. 


MMMM MMMM MMM MMMM Mcncnenicnienicnieniecvecveerleeric rere ee TICE TD 


Before 224 processing the cancel request, a check is maded to 
determine whether or not a similar cancel request is still being 
processed. If a similar request is found, the routine exits without 
performing any processing: the cancel request is redundant and can be 
ignored. Otherwise, fur her cancel processing is performed. 


⸗ 
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Next a IRP/CDRP pair is allocated to represent the cancel request. 
Several fields in the IRP/CDRP are initialized, ine Luding the 
CORP$V_CANIO flag in CORPS( _DUTUPLAGS which marks this IRP/CDRP as a 
special IRP/CORP represent ng a pending cancel request. Henceforth, 
this special IRP/CORP will be refered to as the cancel-CDORP. The 
cancel=CORP is Linked to the CDDB cancel queue (CDDBSL_CANCLQFL) so 
that it can be Located eee tte Failure to allocate a cancel-CDRP 
results in immediate return to the SCANCEL system service without 
having accomplished anything. 


Now, all the Little nooks and crannies in which class driver 1/0 
requests can be stashed are searched for IRP/CORPs which need to be 
canceled. All IRP/CDRP pairs located are tested against the cancel 
criteria. An ettoact is made to locate IRP/CDRPs holding no SCS 
resources first, IRP/CDRPs waiting for some SCS resources next, and 
IRP/CORPs with assoicated MSCP requests last. 


Those IRP/CORPs which do not have an associated MSCP request are 
Janediately sent to 1/0 post processing. Those IRP/CORPs which do 
have associated MSCP requests are marked as canceled (the CDRP$V_CAND 
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bit is set in CDDBSL_DUTUFLAGS) and queued to the send an ABORT 
message queue hanging off of the cancel-CDRP (CDRPSL_SNDABTOFL). 


N.B. no MSCP ABORT commands are sent until ALL IRP/CDRPs meeting the 
cancel criteria are located and processed. 


At this point, it is possible to adjust the wait counter based upon 
the required adjustment factor accumulated as the IRP/CDRPs Lookup and 
processing performed above. After adjusting the wait count, act tuity 
on tee Sovvee -- which was stalled due to an elevated wait count -- is 
resumed. 


wm 
rn 
@ 


Since all the IRP/CDRP pairs meeting the cancel criteria have been 
located, it now is possible to issue the needed MSCP ABORT commands 
* — ⸗ fork thread and return to the S$CANCEL system 
service. 


Interactions with other class driver operations: 


The major complication with other operations has to do with cotersing 
renee connections to the MSCP server. Four distinct situations might 
arise: 


o the SCANCEL system service might be invoked during the middle 
of a reconnection attempt. In this case, cancelable requests 
will be found on the restart queue (CODBSL_RSTRTQFL) an 
terminated immediately, as they do not have an associated MSCP 
request. A single cancelable request may be found to have an 
associated MSCP request, as a result of single step mode. It 
must have an ABORT command sent to the remote MSCP server. 


‘Cd CD CD Cd Gd CD Od 09 C9 C9 OD CD CD 0D 09 09 09 CD C8 08 NI III 
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o the connection might fail during the Lookup of IRP/CDRPs 
roausr ing gencete ion (i.e. before the ABORT commands can be 
sent). This condition is recognized by a failure to allocate 
a message buffer to send the ABORT. ALL the IRP/CORPs to be 
canceled have already been located and removed from normal 
class driver work and SCS resource wait queves. Therefore, 
they will not be automatically restarted; they only need to be 
queued for 1/0 post processing. Then, the cancel operation 
can simply be terminated. 


o the connection might fail while and ABORT command is 
cutetend ing. This condition is detected by DUTUSINSERT_RESTRTQ 
when it tries to insert a cancel-CDRP on the costart gueve 
Instead of queueing the cancel-CDRP, all remaining IRP/CORPs 
to be m are queued for 1/0 post processing and the 
cancel operation is terminated. 


o the connection might fail after all the ABORT have completed 
but before all the canceled 170 requests have terminated. 
This is handled by reconnection processing. At an appropriate 
time, all canceled IRP/CDRPs are queued for 1/0 post 
processing and the cancel operation is terminated. 


There also i an interaction with device failover, Because the 
presence of —224 cancel operations signals incomplete but soon 
to be completed wctivity on a device and because it is not convenient 
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to Boye that activity to a new path, device failover is not permitted 
when incomplete cancel operations are detected for the device. 


ph final, and perhaps most important, interaction with other class 
v 


§ driver operations occurs in MSCP end-packet processing. The common 
; pod qne~secter processing routine tests the CDRP$V_CAND bit 


ated with 1* —— MSCP end-packet. If this bit is set, 
° 


DUTUSEND_CAND_REQ — test for possible completion of the 


° pending Cancel operation. 
86 Inputs: 
8 R2 Channel index number on which cancel is to be performed 
5 R4 Process PCB address 
? RS Device UCB address 
‘ IPL UCBSB_FIPL 
Outputs: 
9 — 


RO through R3 are destroyed. 
ALL other registers are preserved. 


6 DUTUSCANCEL:: 
7 


oO 
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0$: BSBW. BYTUSQUILD _CANIO_ CORP : Build cancel-CDRP 


BLBC : Branch if CDRP build failed. 


O0EO 3 7 BSBW DUTUSCHECK_NOCANCEL : Check for similar cancel request. 
01 50 € BLBS RO, 10$ 3; Branch if no similar cancel request 
0 3; is in progress. 

1 9$: RSB : Else, exit doing nothing. 
$4 

4 

5 


; Move UCB address. 


ww 
Ww 
* 
wo 
= 
mo 
-ur Oon7m 
so mW Oo 
o oo uw 
G0 09 Cd Cd Od Cd Co GD G9 Cd CD CD CD 
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$ MOVL R5, R3 3 
5E ; MOVAB IRPSL_FQFL(R1), RS ; Get cancel-CDRP address. 
$3 3 Search for IRP/CDRP pairs meeting the cancel criteria. 
9 e 
3 ; Search through the restart queue for IRP/CDRPs to cancel. 
51 oo0Bc c3 3C C1 38 ADDL3 #CDDBSL_RSTRIQFL, - ; Get restart queue header address. 
D UCBSL_CBDB(R3), R1 
52 51 00 + MOVL R1, R2 : Copy header address. 
52 g dO DB ? 110$: MOVL CORPSL_FQFL(R2), R2 : Link to next restart CDRP. 
51 f D CMPL R2,R1 : End of queue? 
1 3 E § BEQL 150$ : Branch if end of restart queue. 
E IFNOCANCEL cdrp=(R2), then=110$ ; Branch if don't cancel this CDRP. 
50 62 OF E 4 REMQUE ° ; Dequeue CORP & get address in RO. 
3 5 POST_CORP gretus=SSS_CANCEL : Insert packet in IOPOST queue. 
—EO (11 A $ BRB 110$ 
FB 8 130$: ; Cancel all requests waiting for (or using) the HIRT. 
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° eWEAK DUSCANCEL_FROM_HIRT 
1 MOVAB Ge YSCANCEL _FROM_HIRT, RO ; Get HIRT cancel routine address. 
1 BEQL 5 3; Branch if no HIRT routine to call. 
$14 JSB (RO) 3; Else, call cancel from HIRT. 
1? 150$: ; Search the ROT wait queue and the RDT itself. 
19 MOVL alt + aati R3 ; Get COT address for SCS searches. 
! MOVL R5, R 3 Copy CANIO CDRP addr. for SCS search. 
SCAN_RSPID_WAIT = 3; Scan RDT wait queue. 
action = DUTUSCANCEL_RDTWAIT 
SCAN_RDT Scan RDT. 


action = DUTUSCANCEL_RDT 


MOVL R1, R5 3 


ee RET RO 
00s 


ODOOOOOOOOOOOOOOOOOOOOO 
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Restore CANIO CORP address to R5. 


; Update wait count, and if necessary, unstall UCB. 


Get number of decrements to do. 
Branch if no decrements required. 
Save registers of interest. 

Get UCB to unstall. 

Decrement wait count. 

stalled requests. 
Restore registers. 


Get send-abort queue header. 


; Test for an empty queue. 
; Branch if queue not empty. 
; Else, save UCB address. 


End cancel operation now. 


; Restore UCB address. 
; Return to cancel system service. 


; Create fork thread to 
; send the needed ABORT commands. 


va R4, =-(SP) 3 
MO CORPSL_UCB(RS), R5 ; 
SUBW «= RO, -UCBSW_RWAITCNT(RS) : 
JSB G6*SCSSUNSTALLUCB : Start up an 
mova (SP)+, R4 : 
938 ; 
939 ; If MSCP ABORT commands are required, start a fork thread to send them. 
940 ; Otherwise, simply end the cancel request now. 
3 3; Im any case, return to the SCANCEL system service. 
943 ° 
944 200$ MOVAB CDRPSL_SNDABTOQFL(RS), RO; 
945 CMPL R (RO) : 
94 BNEQ $ 
94 PUSHL CORPSL_UCB(RS) ; 
94 SBW DUTUSERD CANCEL 3 
94 OPL R ; 
950 $B $ 
951 
326 250$:  CREATE_FORK - : 
9 SEND_ABORTS, - 3 
994 rkbTk = (R5), - 
2 5 mask = <*M<R4>> 
338 MOVL CORPSL_UCB(RS), RS5 3 
958 RSB 3 


Restore UCB address in R5. 
Return to SCANCEL system service. 
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-SBTTL SEND_ABORTS = Send ABORT commands for active MSCP requests 


oo 
OOOO 
Wn—oO 


; SEND_ABORTS = Send ABORT commands for active MSCP requests 


3 ; ; Functional Description: 
9 : This independent fork thread sends MSCP ABORT commands for every CDRP 
968 ; on a cancel-CDRP SNDABT queue. i *® goncet=COw "9 * as a fork 
969 ; block for these gy Each C 4* d to CDRPSL SNDABTOFL is 
970 ; removed from that yeue and queued to CDORPSL_ABTDOBL, the ABORT sent 
971 ; queue. Then an MSCP ABORT command is sent to the remote server. 
3 his proceeds until CDRPSL_SNDABTOFL is empty. 
974 : Inputs: 
Gang 
376 : RG PDT address 
44 : RS cancel-CDRP address 
$79 ; Outputs: 
981 : RO through RS destroyed. 
> § : ALL other registers preserved. 
984 ° 
4 5 SEND_ABORTS: 
53 BC a dO 9 3 MOVL CORPSL_UCB(RS), Aw ; Get UCB address. 
54 0084 ¢ DO 2 3 MOVL UCBSL_PDT(R3), : Get PDT address. 
51 €0865 OF 990 108: REMQUE @CDRPSL_SNDABTOFL(RS), R1 ; Get CDRP to abort. 
29 1d 44 BVS 90$ 3; Branch if no more CDRPs. 
oc BS) 61 0tk 8* INSQUE (R1), @CORPSL_ABTDOBL (RS) 3; Queue ‘‘aborted’’ CDRP. 
FO AS 20 Al 00 995 MOVL CORPSL_RSPID(R1), 3; Save RSPID to abort. 
44 CORPSL— CAN_ RSPID(RS) 
99 ALLOC_RSPID ; Allocate RSPID for ABORT cmd. 
9 ALLOC"MSG_BUF 3 pr cesete a message buffer too. 
17 50 +=€9 0 BL 900 : eee if connection broke. 
1 Init _MSCP_ASG ucb=(R3) : alize ABORT message. 
08 A2 01 90 § MOVE" @# K ABORT 3 ine ABORT MSCP opcode. 
MSCP$B_OPCODE (R25 
OC A2 FO AS 00 MOVL CORPSL_ CAN_RSPID(RS), - 3; Set RSPID to abort. 
5 58 PSL “ouT “REF (R2) 
SEND_MSCP ; Send ABORT 55 
0334 30 asuꝰ DOTUSDEALLOC -RSPID_MSG 3; Deallocate RSPID 3 msg. buf. 


re | BRB 10$ : Repeat until no more CDRPs 


? : to be canceled. 
§ 90$: 3; ALL needed ABORT commands have been sent. 
4 
5 
6 


cine CORPSL_FQFL(RS) : Signal cancel-CDRP nat queued. 


3; Terminate fork threa 


OURS/TabE ASE ORIYERSHUBROULINES > 4c HECEEPCHQRS QRSSI9T VAKAVEE SRES8.406580 mano. P29" rH 


17 9008: ; Connention to the remote server broke. Complete wore cancel 
: : operation now. No more abort commands need be sen 
0158 1 § BR 


) DUTUSEND_ CANCEL ; Complete cancel operation 
; and terminate fork thread. 
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«SBTTL DUTUSCHECK_NOCANCEL = Check for no similar cancel requests 
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DUTUSCHECK_NOCANCEL = Check for no similar cancel requests 
Functional Description: 


This routine scans the CDDB in-progress cancel operations queue for 
the primary CDDB of the input device ge for cancel operations 
similar to that described by the other input registers. f ano 
similar cance eration is found, success status is returned. If as 
many as one similar cancel operation is found, failure status is 
returned. The input criteria may describe an entire cancel operation 
or just the relivant UCB. 


Inputs: 
R2 Channel index for cancel operation 
RG PCB anal *y (or zero if PID and channel index tests are not to 
e don 
RS UCB address 


Implicit inputs: 
UCBSL_CDDB(RS) CDDB address 
Outputs: 
RO LBS ==> no similar cancel operation found 
LBC ==> similar cancel operation found 


R1 s destroyed. 
ALL other registers are preserved. 


DUTUSCHECK_NOCANCEL: 


ASSUME IRPSL_CANIOQFL EQ IRPSL_IOOFL 
ASSUME IRPSLIOQFL EG 


PAAANAD AAA BEE EB EEE BAA AMAA MAMA — 


BRS OOD NA NE WIN OOD NA NEW 9 OD NAUE NOUS UW 


50 008C C5 00000080 &F 6 ADOL3 #CDDBSL ye - 3; Get CDDB cancel queue header 
6 ucesi CBDB(RS), RO : address. 
51 50 8 MOVL RO, RT 3; Copy that address. 
29 98 § 108: MOVL IRPS$L_CANIOQFL(RO), RO 3 Link to next CANIO CDRP. 
1 CPL RO, RT 3: Is this end of queue. 
1A BEQL 100$ 3; Branch if end of queue. 
1¢ AO) 53 CMPL g IRP$L_UCB(RO) 3; Is this the right UCB? 
2 BNEO =-:«41:08 : Branch if wrong UCB. 
33 7 TSTL 3; Are full tests needed? 
) BEQL 908 ; Branch if tut} tests unneeded. 
0c AO) 60 AG 7 CAPL PCBSL_PID(R4), IRPSL_PID(RO) : Is this the right ? 
3 74 BNEQ ; Branch if wrong PID. 
28 a0 ; 75 CMPW R2, IRPSW_CHAN(RO) : Is this the right channel? 
E 9 BNEQ 10 ; Branch if wrong channel index. | 
78 90$: ; Oops. Found a similar cancel request. 
50 7 LAL RO : Signal similar request found. 


i —— — — — — — — — — — — — 


oss 


— eee Oe 


3; Return error. 


100$: Lees No similar request found. 
50 01 0 Rove ni, MRO : Signet no request found. 
3 4 3; Return success. 


i —— — — — — — — — — ——— —— — — 
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] 
| 
4 § pe -SBTTL DUTUSBUILD_CANIO_CDRP = Allocate & Initialize a cancel-CDRP | 
0904 ; | 
Rope ; DUTUSBUILD_CANIO_CDRP = Allocate & Initialize a cancel-CDRP 
D904 3 ; Functional Description: 
D9D4 93; This routine allocates space for and initializes a cancel-CDRP, the 
09D4 94 ; IRP/CDRP which represents a cancel operation in progress. in addition, 
D904 95 ; this routine Links the new cancel=-CDRP to the CDODB queue of active 
ope 38 $ cancel-CDRPs. 
0904 8 If the cancel-CDORP cannot be allocated, an error status is returned in | 
ope 144 : RO. Otherwise, a success status is returned. | 
9904 $10) ; Inputs: | 
' 8 | 
09D4 31 ; 3 R2 Channel index number on which cancel is to be performed 
0904 3104 ; RG Process PCB address 
Rope . > 3 R5 Device UCB address 
ope : ; : Outputs: | 
! : 
D904 3109 ; RO SSS_NORMAL cancel=CDRP built without incident | 
0904 3110 ; SSS_INSFMEM insufficient non=paged pool to build cancel-CDRP 
0904 3111 ; R1 IRP base address of cancel-CDRP (i.e. Ri + IRPSL_FQFL = 
oe 4 cancel-CDRP base address) 
09046 3114; ALL other registers are preserved. | 
ee ae | 
' 
D904 9 DUTUSBUILD_CANIO_CDRP: | 
‘ ; 
HE 0904 119 PUSHR #*M<R2,R3,R4,R5> : Save registers. 
51 C6 BF 0906 3120 MOVZBL @#IRPSC_LENGTH, R1 ; Get size of an IRP/CDRP. 
00000000 ' GF D9DA 3121 JSB GE XE SAL ONONPAGED ; Allocate an IRP/CORP. 
5¢ 50 O9E 1 § BLBC RO, 9008 :; Branch if allocation failed. 
7E 1 O9E 1 aovo R1, =(SP) : Save allocation size and address. 
62 51 6€ D9E6 «35124 MOVCS #0, (SP), #0, RI —* dero entire located region. 
£ D9EC 3105 POPR #°M<RO,RI,R2.R3,R4,R5> : Restore allocation information | 
+433 ' § 3; and input registers. | 
08 al 50 ee 31 Vw RO, IRPSW_SIZE(R1) —_; Store allocation size. 
OFS 31 ASSUME IRPSB_RMOD EQ <IRPSB_TYPE + 1> | 
OA Al OA OF 1 MOVZBW #DYNSC_IRP, - : Store IRP type and mode. 
9F6 31 IRP$B_TYPE(R1) 
OC Al 60 AG 9F6 31 § MOVL PCBSL_PID(R4), = 3: Save canceling process’ PID. 
FB 31 IRPSL gh 
1C Al 33 FB 3134 MOVL RS, IRPSL_UCB(R1) : Save UCB of cancel target device. 
28 al 2 FF ! 5 novu R2, IRPSW_CHAN(R1) 3: Save cancel channel index. | 
40 Al 40 Al 1 $ MOVAB IRPSL_SNDABTOFL(R1), - ; Initialize the send an ABORT queue. 
1 8 inp L“SNDABTOFL(R1) 
44 Al 40 Al 1 MOVAB RPSL_SNDABTOFL(R1), = 
D 3140 IRPSL_SNDABTOQBL (R1) 
38 41 38 A 3 141 MOVAB IRPSL_ABTDOFL(R1), - : Initialize the ABORT sent queue. 
1 142 IRPSL_ABTDOQFL(R1) 


| 
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DISK/TAPE CLASS DRIVER SUBROUTINES 16-SEP-1984 253: AX/VMS Macro Vv04-00 
DUTUSBUILD_CANIO_CDRP = Allocate & Initi 1 A 1382 90:30:54 DRIVER. SRC IJDUTUSUBS .MAR; 2 
3C Al 38 Al 8t 641] 143 MOVAB IRPSL_ABTDQFL(R1), - 
A 193 {RPSt~aBTDOBL (RT) 
Al 16 ASSUME IRPSB_CD_TYPE EQ [regu CORE SITES 
Al7 314 ASSUME IRPSB FPL — ERP OU CORDS 12° 
68 Al O839FFAO BF DO OAI7 148 MOVL #< <IPL$_SCS@24> - : Initialize CORP size, type and fork 
AlF 14 : pit 9 CORP@16> - 3; IPL fields. 
AIF 3150 ' <CoRPSC —R 252 
AIF 3151 IRPSH.CORFSIZECR ) 
0084 c1 o0c8 cS 00 Ait 12 MOVL 13 ree ee ° ; Setup CDT address. 
0088 ¢1 56 45 9E OA26 138 MOVAB UCBSWIRWAITCNT(R5), = ; Point CDRP to wait counter. 
Adc 155 IRPS$L_RWCPTR(R1) 
OOAO C1 02 DO OAQC 136 MOVL #CDRPSM_CANIO, - ; Mark this as a cancel-CDRP. 
9 IRPSL_DOTUFLAGS(R1) 
50 00BC C5) DO QA31 3159 MOVL UCBSL_CDDB(R5), RO ; Locate the cancel CDDB. 
0084 DO 61 OF OA36 3160 INSQUE IRPSL_CANIOQFL(R1), = ; Insert cancel-CDRP onto CDDB 
A38 161 @CDDBSL_CANCLOBL(RO) =; queue of cancel-CORPs. 
50 01 00 OA 188 MOVL #SS$_NORMAL, RO ; Setup success status. 
05 “ : 8 RSB ; Return. 
30 84 OA3SF 3166 900$: POPR #*M<R2,R3,R4,R5> ; Error exit -- restore registers. 
05 0441 167 RSB ; Return. 


fa (80) | 


| 
| 


| 
| 
| 
| 
| 
| 
| 
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DUTUSUBS DISK/TAPE CLASS DRI 
—W DUTUSCANCEL_RDTWAIT = Cancel a thread on 14-SEP-19 DRIVER. SRCIJDUTUSUBS.MAR; | 
as i bes ~SBTTL DUTUSCANCEL_RDTWAIT = Cancel a thread on the RDT wait queue | 
A4e 3171: 
* 3 ; DUTUSCANCEL_RDTWAIT = Cancel a thread on the RDT wait queue 
Ab 17 : Functional Description: | 
AG 176 : This is the action routine for SCAN_RSPID_WAIT, the SCS service which | 
AS 177 ; scans the RDT wait queue for entries belonging to a given connection. 
AS 178 : After determining that a A poke presented for processing by this 
A4 179 ¢ routine meets the cancel criteria, this routine performs those | 
“v4 : ? § operations necessary to cancel the request. | 
Abe 31 : : Since a RSPID is a required SCS resource for all MSCP activities, 
AS 185 ; requests stuck on the RDT wait queue (i.e. requests in a RSPID wait 
AS 184 ; state), cannot have active MSCP requests outstanding to the server. 
AG 185 ; Therefore, this routine need only count the need to adjust the wait 
AG 186 ; count, remove the CDRP from the RDT wait queue, and queue the CDRP | 
“4 ! i 3 for 1/0 post processing. | 
GAS HRS Inputs: | 
OA42 3191: R1 cancel-CDRP address 
OA4 136 3 R5 address of a CDRP belonging to the connection on which the | 
we * cancel request was made 
“5 132 : Outputs: 
AG 199 ; RO, R2, and R5 are destroyed. | 
AS 198 ; ALC other registers are preserved. 
gs 85 
* DUTUSCANCEL_RDTWAIT: | 
5 55 DO OA4 0 MOVL R5, R 3; Copy waiting CDRP address. 
3g 51 00 s be MOVL R1, R 3; Copy cancel =CDRP address. 
bag 8 IFNOCANCEL cdrp=(R2), then=10$ ; Branch if CORP shouldn't be canceled. | 
44 45 B86 nee 8 INCW CORPSW_DUTUCNTR(RS) 3 account —* went counter bump due | 
3 te wait state. 
50 62 OF 3 g REMQUE (R2), RO ; Remove CDRP from wait queue and | 
ae 19 POST_CDORP status=SS$_CANCEL : queue it for 1/0 post processing. | 
05 0A61 12 10$: RSB : Return to RDT wait queue scan. | 
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-SBTTL DUTUSCANCEL_RDT = Cancel a thread holding a RSPID 


+ 
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DUTUSCANCEL_RDT = Cancel a thread holding a RSPID 
Functional Description: 


This is the action routine for SCAN_RDT, the SCS service which 
Response-id Descriptor Table (RDT) for entries belonging to a given 
gonmect ten. After determining that a request presented for processing 
by this routine meets the cancel criteria, this routine performs those 
operations necessary to cancel the request. 


Class driver function threads found in the RDT may or may not 
currently have MSCP transactions in progress. Before canceling are 
thread found in the RDT, the presence or absence of an active ASCP 
transaction must be determined. This is done by searching the CDDB 
queue of threads with active transactions for the CDRP presented for 
processing. 


If the CDRP is not found in the CDDB queue, it does not have an active 
MSCP transaction. Therefore, it can be canceled by counting the need 
to adjust the wait count, removing the CDRP from the whatever wait 
queue it is on, and queuing the CDRP for 1/0 post processing. 


If the CORP is found in the CDDB queue, it does have an active MSCP 
transaction and that transaction must eventually have an MSCP ABORT 
command issued against it. This is done by pening Bw. CORP from the 


CODB queue and queueing it to the send-abort queue linked to the 
OA6 cancel-CORP. Entries are placed in the send-abort. queve in request 
46 sequence number order. This causes the MSCP ABORT requests to be 
A6 issued in the same order as the MSCP commands which they abort were 
* issued. This is necessary for proper tape class driver operation. 
46 Inputs: 
46 
46 R1 cancel-CDRP address 
46 R5 address of a CDRP belonging to the connection on which the 
— cancel request was made 
ne Outputs: 
46 RO, R2, and R5 are destroyed. 
A AL( other registers are preserved. 
46 
ne DUTUSCANCEL_RDT: 

MOVL RS, R : Copy ROT CDRP address. 


MOVL R1, R : Copy cancel-CDRP address. 
IFNOCANCEL cdrp=(R2), then=90$ ; Branch if CORP shouldn't be canceled. 


MOVL CORPSL_UCB(RS), RI ; Get UCB address. 
MOVL ucB t DB(R1), R1 3; Get CDDB address. 

ASSUME CODBSC_CDRPOQFL EQ 

ASSUME CORPS) -FOFL EQ 

MOVL R1, R : Initialize ‘‘previous’’ CDRP address. 


* 

000000000 
— ——— 
öÿ 
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DUTUSUBS DISK/TAPE CLASS DRIVER suBROUTINER 4 00: AX/VM © V04=00 Page 70. 
—WB DUTUSCANCEL_RDT = Cancel a thread holdin i mii =}382 9° ‘33: $¢ YORIVER R.S SpUTUSUBS. MAR;2 . (26) | 
A7A 71 
29 8 b0 * 3 10$: MOVL C APH, FOFL (RO? , RO 3 Link to next CDRP. 
1 o A 7 CMPL RO, R : Reached end of CDODB re yet? 
1 A 74 BEQL 50§ ; Branch if reached en f queue. 
52 Di OA 75 CMPL RO, R2 3; Found CORP to be cance ted’ 
a 12 . 6 BNEQ 10$ ; Branch if CDRP not found. 
“ 4 4 3 The CORP to be canceled has an active MSCP transaction. 
$ 62 OF OA87 0 REMQUE (R2), R2 ; Remove CDRP from CDDB queue. 
40 A201 CB OABA 1 BISL #COR DRPSM_CAND, - : Flag CDRP as “canceled.” 
ABE ¢ CORPSL BUTUELAGS (R2) 
AO A2 55 00 OA MOVL ANIOCDRP(R2) : Set back pointer to cancel-CDRP. 
1 EO AS 43 A 4 MOVAB CBee Hi NSNDASTOFLIRS) « R1 : Get header for send-abort queue. 
3 3 6 “ 5 MOVL : Initialize ‘‘previous’’ CORP address. 
50 88 DO OA99 5 30$: MOVL conven ‘pars thal RO 3; Link to next CDRP. 
51 0 D1 OA9IC 8 CMPL RO, R1 3; Reached end of send-abort queue yet? 
07 13 OASF 89 BEQL : Branch if reached end of queue. 
FO AO fo 42 01 6441] 90 CMPL CORPSL_SEQNUM(R2), - ; Is canceled-CDRP seqnum less than 
AAG 91 GORPSL_ SEQNUM(RO) 3 current send-abort seqnum? 
Fl =s'T€ 8 3 BGEQU 3 If not, loop until it is. 
04 B80 62 OE OAA 94 358: INSQUE (R2), @CDRPSL_FQBL(RO) ; Insert canceled-CDRP before current 
—* * 3 send-abort queue entry. 
| ow 3 BRB 80$ 3; Join common exit code. 
avy +4 50$: 3 The CORP to be canceled does not have an active MSCP transaction. 
44 AS B66 OAA 01 INCW CDRP$W_DUTUCNTR(RS) ; Account for wait counter bump due 
AB 8 : to RDT wait state 
50 62 OF OABI 0 REMQUE (R2), RO ; Remove CORP — wait queue and 
ar? 8 POST_CDRP status= SS$_CANCEL 3 queue it for I/0 post processing. 
51 55 pO OAC 06 80$: MOVL R5, R1 3; Restore cancel-CDRP addiess. 
05 OAC& 3307 908: RSB ; Return to RDT scan. 


ee, 
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DISK/TAPE CLASS DRI -SEP-1984 00:53: AX/VMS Macro v04-00 Page 71 
DUTUSTEST CANCEL. BON - Test for complet 1 met 90:33.99 YORIVER. SRE IDUTUSUBS.MAR: 2 ° (27) 
* 19 a -SBTTL DUTUSTEST_CANCEL_DONE = Test for completed cancel operation 
AC 1: 
* 3 ; DUTUSTEST_CANCEL_DONE = Test for completed cancel operation 
at 1 > Functional Description: 
AC 8 This routine is called by MSCP end message processing whenever an MSCP 
AC 13 end pessage is associated with a CDRP which has the CORPSM_CAND bit 
AC 13 3 set in CO o8, DUTY AGS. The presence of that flag indicates that a 
oo 1? 3 cancel-CDRP is waiting for canceled requests to complete. 
AC ? ; It is assumed that the input CDRP has been removed from whatever queue 
~ § ; it was on when the MSCP message was received. 
AC 4 : This routine determines whether or not all canceled requests for the 
AC $3 cancel-CDRP associated with the input CDRP (which represents one of 
AC § : those canceled requests) have completed. If they all have completed, 
* the cancel operation is ended. Otherwise, no action is taken. 
* : Inputs: 
ac 1: RS CORP address (for a canceled request) 
~ $ : Outputs: 
ey 5; ALL registers are preserved. 
Ace SRap 
* DUTUSTEST_CANCEL_DONE: : 
7D OAC 40 mova R4, -(SP) : Save some registers. 
D0 ace 41 MOVL § CDRPSL_CANIOCDRP(RS), RS : Get cancel-CORP address. 
9— OAC 28 MOVAB CDRPSL_SNDABTOFL(RS), R4 3; Get send-abort queue header. 
1 OAD 44 CMPL R4, (RG) : Is send-abort queue empty? 
12 OAC 45 BNEQ 80 ; Branch if queue not empty. 
4 AD $$ MOVAB CDRPSL_ABTDOQFL(RS), R4 ; Get abort-sent queue header. 
D ADO 4 CMPL R4, (RE) 3; Is abort-sent queue empty. 
12 ADC 48 BNEQ 6=-«BO$ : Branch if queue not empty. 
10 * BSBB DUTUSEND_ CANCEL : Cancel operation is finished. 
0 AE 26 80$: MOVO (SP)+, R4 ; Restore saved registers. 
0 AE RSB 3; Return. 
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DISK/TAPE CLASS DRIV -SEP-1984 00:53: AX/VMS Macro V04-00 Page 7. 
DuTUSDISEOMNE CT. CANCEL = Do disconnect c 1 mets 90:33:99 DRIVER. SRC JDUTUSUBS .MAR; 2 . (28) | 
ng 5 al -SBTTL DUTUSDISCONNECT_CANCEL - Do disconnect cleanup for cancels 
AEG : 
nee 3 DUTUSDISCONNECT_CANCEL = Do disconnect cleanup for cancel requests 
Ags > Functional Description: | 
AES § : This routine is called to perform those cancel functions required | 
AES 65; whenever a connection breaks. For each cancel-CDRP on the CDDB cancel 
AES $6 5 opeations queue, this routine performs one of tw cleanup tasks: | 
AES 68 : 0 If the cancel-CORP has its fork block queued somewhere, it is 
AES 67 ; simply removed from the CDDB cancel operations queue. Some 
AES 8 other portion of the broken connection cleanup will discover 
AES — the cancel-CDRP in whatever queue its fork block is hung. The 
AES 0; cancel-CORP will then be delivered to DUTUSINSERT_RESTRTQ 
AES 71; which will complete the needed cancel cleanup. This cleanup | 
AES i 3 is done in this way because this routine cannot know the 
AES ‘93% proper connection-dependent cleanup required by the 
AES 74 ; cancel-CDORP as a result of its in progress SCS activities. 
AES 3375 ; N.B. proper operation of this test depends upon SEND_ABORTS 
AES 16 ; clearing the cancel-CDRP fork block queue Links when it is 
ee 4 3 done sending the needed MSCP ABORT commands. | 
QAEe 8 : o If the cancel-CDRP fork block is not queue anywhere, the 
AES 0: cancel-CDRP is dequeued from the CDDB cancel operations queue 
AES 13 and the cancel operation it represents is ended now. ALL 
AES § 3 CORPs Linked to the cancel-CDR 529 completion of cancel | 
wee ? 3 processing) are immediately queued for 1/0 post processing. | 
AES 5 : Inputs: 
AES — ; 
AES 3 R3 CDDB address 
AES 3 3 
Wie 3; Outputs: | 
AES 3391 : RO and RS are destroyed. 
ie 3 3 ALL other registers are preserved. | 
AES 3394 * 
ie 8* DUTUSDISCONNECT_CANCEL:: 
55 0080 D3 OF OAE4 $397 10S: — REMQUE @CDDBSL_CANCLOFL(R3), R5 ; Get a cancel-CORP. 
10 10 ni 38 BVS 90$ ; Branch if no cancel-CDRPs. 
AEB 34 ASSUME IRPSL_CANIOOQFL fa IRP$L_IOQFL 
AEB 34 ASSUME IRPSL_IOQFL 9 
50 64 45 60 45 C9 OAE 4 § BISL3 IRPSL_FQFL(R5), = 3: Is CORP fork block queue? 
AF 4 jRPSL_FOBL (RS), RO :; If so, skip further 
F1 12 “4 ri : BNEQ 0$ : processing. 
55 60a5 Y Me 4 MOVAB pore FOFL(RS), RS ; Else, cleanup cancel 
09 19 AF 4 BSBB puTU CLEANUP_ CANCEL 3 operation. 
€&9 1 oh ; 3 BRB 10$ ; Loop till no more CDRPs. 
05 OAFB 53410 90$: RSB ; Return. 


Eee eee... 
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—WR DUTUSEND CANCEL - Finish a cancel operat 14-S pa} 984 90:38:54 YORIVER. SREIDUTUSUBS MAR: 2 al (29) 
AFC § -SBTTL DUTUSEND_CANCEL = Finish a cancel operation 
“4 ee ~SBTTL DUTUSCLEANUP_CANCEL = Cleanup a cancel operation 
AFC 5; 
AFC $ ; DUTUSEND_CANCEL = Finish @ cancel operation 
nf ; DUTUSCLEANUP_CANCEL = Cleanup a cancel operation 
are ; 3 Functional Description: 
AFC ; : These routines are called end an in progress cancel operation. Both 
AFC § 3 routines guarantee that all canceled requests not previously posted 
AFC 3 for 1/0 post processing (or otherwise disposed of) are queued for 1/0 
are ¢ : post processing. Both routines deallocate the cancel-CDRP. 
AFC 3 : DUTUSEND_CANCEL removes the cancel-CDRP from the CDDB cancel 
are 3 operations queue. DUTUSCLEANUP_CANCEL does not. 
are § : Inputs: 
we ? ; RS cancel-CORP address 
ar $ > Implicit Inputs: 
AFC 5; CDRPSL_SNDABTOQFL(RS) © send-abort queue header 
AFC — CORPSL_ABTDQFL(R5) abort-sent queue header 
wre 3 CDORPSL_CANIOQFL(RS) CDDB cancel operations queue Links 
are 5 ; Outputs: 
AFC 1 : ALL registers preven yer: 
AFC § g CORP pointed to by R5 is deallocated. 
mre eee 
AFC 5 DUTUSEND_CANCEL: 
AFC 9 
7E AO 45 OF AF 


REMQUE CDRPSL_CANIOQFL(R5), - ; Remove cancel-CDRP from CDDB cancel 
- : gperectone queue. 


8E DS O08 6 TSTL 6 eanup stack. 
1 DUTUSCLEANUP_CANCEL : 
3F BB OOK ; PUSHR #*M<RO,R1,R2,R3,R4,R5> ; Save registers. 
5 : First drain any CDRP’s that didn't even get there ABORT's sent. 
50 €0 83 F 06 208: REMQUE PEDAPEL SNDABTOFL (RS), RO ; Get next canceled IRP/CORP. 
F D 0808 8 VS 40$ ; Branch if no more IRPs/CORPs. 
BOA POST_CDRP status=SS$_CANCEL : Insert packet onto IOPOST queue. 
ee 11 +4 BRB 208 ; Loop back until empty. 
i : Then drain CDRP's which did not terminate after an ABORT. 
50 08 83 F 081 40$: REMQUE OLORPEL ABTOOFL (RS). RO ; Get next canceled IRP/CORP. 
F D 0B1D 5 BVS 608 ; Branch if no more IRPs/CDRPs. 
M POST_CDRP gtatus=SS8_CANCEL ; Insert packet onto IOPOST queue. 
ee 11 age 5 BRB 40 ; Loop back until empty. 


— — EDDDDDD— 


— — — — 


608 ; Deallocate cancel-CDRP. 
5 AO AS +3 MOVAB Hos oe IOQFL(RS), 3; Point to IRP gort ten. 
00000000" ¢F 1 of 56 BRVDEALMEM : Deallocate IRP. 
3F 474 POPR #*M<RO,R1,R2,R3,R4,R5> =; Restore registers. 
8 A 75 BSB . 


— 


C8 AS (C8 03 


O 0-090 
AOR =e 
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4 : ~SBTTL DUTUSTEST_CANCEL_CDRP = Should a CDRP be canceled 
7 


DUTUSTEST_CANCEL_CDRP = Should a CDRP be canceled 
Functional Description: 
This routine tests one input CDRP against an input cancel CDRP to 


determine whether or not the former should be canceled. The CDRP 
3*1 be canceled if and only if the following fields match in both 
$: 


CORPSL_PID requesting process PID 
CORPSW_CHAN request ing process channel 
CORPSL_UCB device UCB address 


NOTE: virtual requests are canceled in the same manner as other 
requests. This differs from the approach used by other disk drivers. 


INCL RO ALL match, so cancel it. 


ere 
Rr RAY AAO 
NOUS WN (OC OONOAUE Wit — NAUE WO OONOAUE WO 


Inputs: 
4 Re test CDRP address 
: R cancel CDRP address 
3 Outputs: 
5 RO success implies test CDRP should be canceled 
3 failure implies test CDRP should not be canceled. 
5 
30 UTUSTEST_CANCEL_CORP:: 
26 CLRL RO 3 Assume no cancel. 
51 CMPL CORPS$SL_UCB(R2), CDRPSL_UCB(R5) ; Do devices match? 
3] BNE : Branch if no match. 
1 CMPL CORPSL_PID(R2), CDRPSL_PID(RS) ; Do PIDs match? 

3] BNEQ ; Branch if no match. 
1 CMPW CORPSW_CHAN(R2), CDRPSW_CHAN(RS); Do channels match? 
3} —Q 90$ ; Branch if no match. 

51 : 


9 
— 
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sores GENERAL SUPPORT ROUTINES ----- 1828 P-19 DRIVER.S REID DUTUSUBS .MAR; 2 (31) 
-SBTTL <---* GENERAL SUPPORT ROUTINES o---- 
mt -SBTTL DUTUSRESE -MSCP_MSG = Reset MSCP command packet 
DUTUSRESET_MSCP_MSG = Reset MSCP command packet 
; Functional Description: 


of another MSCP command. s — for use by those functions 
y complete. Any 
failure of the message buffer eperation is taken as an i 8 tion of 8 


This routine is the power behind the RESET_MSCP_MSG macro. 


OB O OOD NIAUNE 


Te ad al ah AL Ab Ab Ab Ab Ab AL AL Ah Ab Ah Ah Ab Ah AAS 


Inputs: 
R3 UCB address 
: R5 CORP address 
re 
32) 
28 RO & R1 destroved 
44 reset MSCP command packet address 
46 | : ALL other registers preserved. 
6 
+8 UTUSRESET_MSCP_MSG:: 
A4 AS 8EDO 50 POPL agpaeet. IOQBL (R5) : Save caller's return address. 
51 RECYCL_RSPID : Recycle the RSPID. 
F 26 RECYCL_MSG_BUF 3: Recycle the MSCP packet. 
05 50 6509 ¢ H BLB R $ 3; Branch if connection broken. 
AS AS) OOD 554 PUSHL CDRP$L_IOQBL(RS) 3; Restore return address. 
09. 11 8 $22 BRB DUTUSIRIT OnSCP _MSG_UNIT 3: Initialize MSCP packet. 
6A 228 99$: : RECYCL_MSG_BUF detected a broken connection. 
oA 228 : Therefore, kill this execution thread. 
8E F 6A 335 TSTL (SP)+ : Forget return address. 
O1F6 1 6C 561 BRW DUTUSKILL_THIS_ THREAD : rpeg kill this thread. 


| 
| 
| 
| 
Outputs: 
| 
| 
| 
| 
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yup purus CBomSc_UNIT = Int wet m 12xSEp-1986 $o:09:57 EDMIVER. ShedoutusUoS.mar:2 2% (35) 
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T SG_UNIT = Initialize a MSCP message w/ unit number 
DUTUSINIT $¢"- ya 


Initialize a MSCP message 


Mw 

+ 

* 
ee 

os 

mn 
ae 
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DUTUSINIT_MSCP_MSG_UNIT = Initialize a MSCP message w/ unit number 
DUTUSINIT_MSCP_MSG = Initialize a MSCP message 


Functional Description: 


These routines initialize an SCS message buffer for use in Frenentty ing 
a MSCP command packet. The primary purpose of this initialization is 

to insure that all reserved fields are zero. In addition, the command 
reference number is loaded with the RSPID. DUTUSINIT_MSCP_MSG_UNIT 


also loads the unit number from UCBSW_MSCPUNIT. 


—~ 


7 
These routines are the power behind the INIT_MSCP_MSG macro. 
Inputs: 
a a UCB address (DUTUSINIT_MSCP_MSG_UNIT only) 
R a CORP address 


CORPSL_MSG_BUF (RS) 
CORPSL_RSPTD(RS) 
UCBSW_ASCPUNIT(R3) 
Outputs: 
RO & R1 destroyed 
R message buffer address 
ALL other registers are preserved. 
Implicit Outputs: 
MSCPSK_MXCMDLEN bytes of message buffer are zeroed. 
MSCPSL_CMD_RED(R2) == CDRPSL_RSPID(RS) 


(DUTUSINIT_MSCP_MSG_UNIT onl 
MSCPSW_UNIT(R2) < 


Special notes: 


SCS message buffer address 
SCS RSPID 
unit number (DUTUSINIT_MSCP_MSG_UNIT only) 


bP RP NG DARD bt tat td te tet — 
NAME WO WOO 


| 

| 

| 

Implicit Inputs: 
) 

==" UCBSW_MSCPUNIT(R3) 


These routines are somewhat inefficient and therefore are not suitable 
for code paths requiring speedy execution. 


ENABLE LSB 

DUTUSINIT_MSCP_MSG: : 
cCRL R1 : Signal no unit number present. 
BRB 10$ 3 Join common code. 


DUTUSINIT_MSCP_MSG_UNIT:: 
mOvZ0L~ UCBSU_MSCPUNIT(R3), R1 : Get unit number. 


ao 


* 
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nene it fuz  EDRIVER. cae TbutusuoS man:2 2% 


MOVL CORPSL_MSG_BUF(RS), R2 ; Get message buffer address. 


MOVL R2, RO 3; Copy message buffer address. 

REPEAT — /8 

*3 + ; lero entire message buffer. 

SIF E scp KAMXCHDLEN & 4, CLRL 68: 

41 MSCP K-MXCMDLEN ¢ CLRW (RO)+ 

ollf MSCPSK~ MXCMDL " » CLRB (RO)+ 

MOVL CORPSL_RSPID(RS) 3; Setup command reference 
MSCPSL-CMD “REF (RD) $ number from RSPID. 

MOVW R1, MSCPSW_UNIT(R2) ; Setup unit number or zero. 


RSB ; Return to caller. 
-DISABLE LSB 


<o 


n 7? | 
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vous oot dU R VER MSG - Send driver inter raat et 9 — —VV— — * (33) 
~SBTTL DUTUSSEND_DRIVER_MSG = Send driver internal message to MSCP server 
-SBTTL DUTUSSEND-MSCP_MSG = Send command message to MSCP server 


* 
J 


DUTUSSEND_DRIVER_MSG = Send driver internal message to MSCP server 
DUTUSSEND_MSCP_MSG = Send command message to MSCP server 


Functional Description: 


These routines cause the MSCP message packet pointed to by the CDRP 
whose address is stored in R5 to be transmitted to the MSCP server 

at the other end of the connection whose PDT address is in R4. For 
accounting purposes, the CORP is queued to the oct ve transfers queue 
of the CODB whose address is in UCBSL_CDDB(R3) CDUTUSSEND_DRIVER_MSG 
uses the permanent CDDB associated with the input CDRPJ. 


Control is returned to the instruction following the call to this 
routine when the corresponding MSCP end message has been received. 


Inputs: 


R3 UCB address (DUTUSSEND_MSCP_MSG only) 
R4 PDT address 


O00 OONAUS UO 0 


PDP EB EEE 


o —— — 2222——æ 22 


8 RS CDRP address 
6 IPL is IPL$_SCS 
664 
8 Outputs: 
66 R3 - RS preserves. all other registers destroyed 
66 IPL is IPL$_SCS 
és 
i 
44 ENABLE LSB 
ors DUTUSSEND_DRIVER_MSG: : 
675 PERMCDRP_TO_CDDB - ; Locate interesting CDDB. 
676 cdrpers. cddb=R1 
OD 11 of BRB 100 3; Join common code. 
78 DUTUSSEND_MSCP_MSG:: 
6 ‘ ; The same macro which defines inline versions of SEND_MSCP_MSG 
° § : is used here to produce the body of this routine. 
684 


SEND_MSCP_MSG ROUTINE 100$ 
BITW 


CA AS 0080 BF #TRPSM_DIAGBUF, CDRPSW_STS(RS) 
F BNEQ  30019$ 
51 00B8C C3 ; 9208: MOVL UCBSL_CDDB(R3), R1 
04 e! O$:  INSQUE (R5) Scopes CORPOBL (R1) 
ee MOVL  #MSCPSK_MXCMBLEN.R 
60 84 1 JMP @PDTSL_SNDCNTMSG(R4) 
dett 30019$: BSBW BUTUSDONP, COMMAND 
EC BRB 


3686 DISABLE LSB 


<o 
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vou-e0t DUTUSINTR_ACTION_XFER = Interpret transf 18865-1384 93509594 YORIVER. SRE IDUTUSUBS.MAR; 2 . RB, 
8 -SBTTL DUTUSINTR_ACTION_XFER = Interpret transfer action table 
3 ~SBTTL DUTUSINTR_ACTION_N = Interpret non-transfer action table 
88 
BB DUTUSINTR_ACTION_XFER = Interpret transfer action table 
4 DUTUSINTR_ACTION_N = Interpret non-transfer action table 
88 Functional Description: 


These routines interpret an action table. Based upon the comparison 
of a MSCP$W_STATUS value to entries in the action table, the contents 
of RO (as status code) are set and control is transfered to a 
specified location. 


An action table is formed an processed using the following sequence of 
macro statements: 


DO_ACTION {TRANSFER | NONTRANSFER) 

ACTION_ENTRY mscp_code_1,ss_code_1,destination_1 
ACTION_ENTRY mscp_code_ o88_.code_¢.dest inat ion.¢ 
ACTION_ENTRY mscp_code_5,ss_code_5,destination_ 


ACTION _ENTRY mscp_code_n,ss_code_n,destination_n 
ACTION_ENTRY END 


These routines compare the MSCP end=-packet status code found at 
MSCP$W_STATUS(R2) to each mscp.code_ in the action table. Whenever a 
match Ts found, ss_code_x is loaded into RO and control is transfered 
to destination_x. “If the DO_ACTION parameter is NONTRANSFER, the 
DUTUSINTR_ACTION_N entry point is used and the resulting RO will have 
ss_code_x in the low-order word with the high-order word zero. If the 
DO-ACTION parameter is TRANSFER, the DUTUSINTR_ACTION_XFER entry point 
is "used and the resulting RO will have ss_code-x in the high-order 
word with the low-order word zero. This Tater form is use for 
Senvententiy forming the final I0SB status field for a transfer 
command, which is of the form: 


— — e mae s 3 


BCNT (low-order) ; status 


weesenmeosrenwmewneesec oe we}oecees See eee e2ee2oeoeoeee@ ' 


SESTERR CUR ER ERE LER SERRE SSE ER LAE RRR See eae eee eeeee 5 


The byte count, BCNT, to be returned is loaded into R1. Then a 
quadword shift is per toreer moving status into the low-order RO and 
moving BCNT into the position shown above. 


Whenever an input MSCP end-packet status cannot be located in the 

action table, control is returned to the first instruction following 

the action table and the contents of RO and R1 are indeteminant. 
Inputs: 


R2 MSCP end-packet address 
(SP) action table base address 


NINO OOOOOOSOOOOS ——— 
PEK HK PF AAAAAA.AAINIGMODINIDININIPINININD) 2 9 9 OP MOQOOODOOOOCOOOOOOOOOOOOMOD —-—™ 
PVT 2 O ODNOA UNE WIN 9 OD NAUE OO NA UE WIN 0 OD NOAUES WO OONAUS WN" O00 


¢ 8 


DUTUSUBS DISK/TAPE CLASS DRIVER SUBROUTINES 16- 4 AX/VM cro V04-00 P 1 
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BB 45; | 
e8/ 746 : Implicit Inputs: 
887 748 ; MSCP$W_STATUS(R2) MSCP end=-packet status 
BB/ reo ; Outputs: 
BB7 i : RO SS$_xxx status * from action table; in low-order RO for 
BB7 es ; DUTOSINTR.ACTION.N, DO_ACTION NONTRANSFERS in high-order RO 
7 3754: for DUTUSINTR_ACTION_XFER, DO_ACTION TRANSFER 
BB7 oe? : R1 Corrupted 
, 73 3 ALL other registers preserved. 
pea? 739 3 Implicit Outputs: 
pee? re) : None. 
des? 768 : Side Effects: 
0887 3765 : Control is transfered to the destination specified in the selected 
des? oe 3 action table entry. 
7 3768 ° 
088? 169 DUTUSINTR_ACTION_XFER: : 
51 10 90 0887 3771 MOVB #16, R1 3; Set transfer shift count. 
02. «11 foes ak BRB INTR ACTION. COMMON ; Join common code. 
foes oe DUTUSINTR_ACTION_N:: 
51 94 foes ore CLRB R1 3; Set non-transfer shift count. 
BBE 78 INTR_ACTION_COMMON: 
50 8€ O05 C3 088 780 SUBL3 #ATE_ENTRY_LEN, (SP)+, RO : Get initial action tbl. addr. 
7E 51 90 fee 4 1 MOVB R1, =(SP) : Save shift count. 
ber 7 ¢ ASSUME MSCPS$S_ST_MASK LE 7 
OBC 784 ASSUME MSCP$V~ST— MASK EQ 0 
51 OA A2 €0 8F 8B OBC 785 BICB3 #*cMSCPSM"ST_MASK, - : Get nscp end-packet status 
pec § MSCPSU STATUS(R2), R 3; value 
50 05 cO OBCB 37 8 10$: ADDL #ATE_ENTRY LEN, RO ; Move to next action entr 
60 65 OBC 7 TSTW ATE_OFFSETTR 3; Is this end of action tabie? 
—41 DBD 790 BEQL ; Branch if end ft —— 
51 02 4 91 080 791 CMPB ATE_MSCPCODE(RO), R1 ; Compare MSCP st 
7 12 ro 3 BNEQ 10$ ; Loop if wrong mgcP Status. 
51 60 32 0BD8 379% CVTWL  ATE_OFFSET(RO), R1 : Get destination displacement 
1BDB 3795 ASSUME ATE-OFFSET EQ 6 ; from the action table. 
1 $50 0 OBDB £36 ADDL RO, R1 3; Convert to absolute address. 
50 03 40 3¢ DBD MOVZWL ATE *35 RO 3; Get Ss$, * code — 6 
50 50 ¢ DBE 79 ROTL (SPJ+, RO, R : Shift if by shift co 
6 1 pee 3 JMP (R1) : Go to specified BR 
OBE Hi 90$: 3; MSCP status not found in action table. 
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) 
IVER SUBROUTINES 
- Interpret non-trans 1 


CLRB ($P)+ 
JMP 2(RO) 
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3; Pop shift count from stack. 
; Continue after end of action 


; table. 
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Restore ailecaced 1236 5-18 DRIVER. SRCJDUTUSUBS .MAR; 2 5) 
-SBTTL DUTUSRESTORE_CREDIT = Restore allocated message credit 


+ 
+ 


DUTUSRESTORE_CREDIT = Restore allocated message credit 
Functional Description: 


An SCS message buffer has been allocated, but its use is no longer 
needed. However, the buffer cannot s mole be deallocated, because to 
do so would result in pocwanessty loosing a send credit to the MSCP 
server, Therefore, a NOP MSCP command must be sent to the MSCP server. 
This wilt cause it to restore the allocated (and now used) send 

credit. 


To accomplish its goals, this routine plays fast an loose with the 
port driver. A send 2* request is queued, but before the 

response can be received, the RSPID for the request is deallocated. 
This is guaranteed by this routine no breaking IPL$_SCS sxnehrontaet ton 
from the time the request is queued until the time the RSPID is 
deallocated and the CDRP is dequeuved from the CDDB active requests 
queue (work queue). Because the RSPID is no longer allocated when the 
response message for the NOP command is received, the class driver IDR 
—22 +h : scard the response message, which is exactly the 

esired effect. 


Inputs: 
R3 UCB address 
RG POT address 
RS CORP address 


Implicit Inputs: 
CORPSL_MSG_BUF (R 
CORPSL-RSPTD(RS) 
UCBSW_ASCPUNIT(R 

Outputs: 


5) message buffer address 
SPID 
3) unit number 


ALL registers preserved. 


DHOHOD OHSS OS OH OHSS SSS SOSH OOOH SOS OOOO OO OB 
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Implicit Outputs: 


CORPSL_MSG_BUF (RS) 


> mes uffer address - deallocated 
CORPSL_RSPTD(RS) RSP 


eallocated 


wo 
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DUTUSRESTORE _CREDIT:: 


Send NOP command. 
If ever get here, kill this 


F PUSHR #*M<RO,R1,R2,R3> : Save registers. 
7E 54 mOVa = R4, = : Save POT and CORP. 
INIT_MSCP_ASG ucb=(R3) : Ready packet to send NOP. 
08 A2 03 MOVB K_OP_GTUNT, - ; Use Get Unit Status function 
MSCPSB_OPCODE(R2) ; as NOP, 
00° AF PUSHAB 6*10$ : Set inline caller's caller. 


SEND _MSCP_MSG 
RSB 
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55 


BE 
5 


OF 
5 
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5 
R1,R2,R3> 
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fork thread. 


NOP 
The fork thread is evaporated by deallocating its 
oving the CORP from the class driver work queue. 


Quick, deallocate RSPID. 
Remove CORP from work queue. 
Restore other registers. 


; Return to caller. 
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DUTUSINSERT_RESTARTQ = Insert outstanding CDRP in restart queue 
Functional Description: 


This routine is presented with A 1/0 requests (represented 
by CORPs) whenever a connection-failure cleanup is required. for each 
request, this routine determines the appropriate cleanup action and 
performs that action. 


In all cases the RSPID and message buffer are deallocated. N.B6. 
mapping resources are not deallocated. This action is postponed until 
after the connection is formally broken, to prevent an ‘‘insane’’ server 
from incorrectly overwriting memory due to reallocation of mapping 
resources. 


The various cleanup processing cases are as follows: 


1. Ordinary IRP/CORP - insert the CDRP in the restart queue 
in sequence number order. 


2. CODB Permanent = no action other than deallocating SCS 
IRP/CDORP resources 
3. HIRT Permanent - find CORP which incurrect the 
IRP/CORP replacement request, process it with a 
recursive call to this routine, copy 
HIRT permanent IRP/CDRP mapping 
resource information to a CDDB 
permanent CDRP, and unlock the HIRT. 
4. Cancel Operation - complete the cancel operation, posting 
IRP/CORP all effected IRP/CDRPs because the 


connection failure has done what the 
ABORT command had (so far) failed to do. 


5. Mount Verification - Same as 1. However, after the mapping 
IRP/CORP resources are deallocated, these 
IRP/CDRPs will be queued for post 
processing with a status SS$_MEDOFL. 


Inputs: 
R3 CODB address 
RG POT address 
RS CORP address 
Implicit inputs: 
T.B.S. 
Outputs: 


RO through R2 and R5 are destroyed. 
ALL other registers are preserved. 


ae | 
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DUTUSINSERTCR RESTAR - Insert outstandin ~ 1984 98: 38: 5 DRIVER. $RC €3D DUTUSUBS .MAR; 2 ~ 8 
cOF 
: : 3 t : Implicit outputs: | 
¢ : : ¢ : See functional description. | 
COF 3936 ° | 
c F 3 ; DUTUSINSERT_RESTARTQ: : 
OA AS 39 91 OCOF 39 § CMPB #DYNSC_CDORP, - : Guarantee that a CDRP is being 
¢C 279 Conese. CD_TYPE(RS) 3 processed. | 
33.12 : Re BNEQ 99$ : If not, bug check. 
00eB 30 $ 3e8 BSBW DUTUSDEALLOC_RSPID_MSG ; Always deallocate RSPID & msg. buf. 
2440 a5 03 €0 OC 945 BBS #CORPSV_PERM, : Is this a permanent CORP? | 
¢ 4 8 —8 BUTUFLAGS(RS), ; Branch if permanent CDRP. 
20 40 AS 04 €0 OC 38 BBS #CORP : Is this a HIRT permanent CDRP? 
¢ 38 ice VBUTUFLAGS(RS), ; Branch if HIRT permanent CORP. 
1€ 40 45 01 EO OC 951 BBS #CORPSV_CANIO, 3 Is this a CancellIO CDRP? 
t 326 CDRPSL VBUTUFLAGS(RS) , 3; Branch if Cancell0 CORP. 
st Be oe 
50 3c ad 9 C27 3955 MOVAB CDDBSL_RSTRTQFL(R3), RO ; Get restart queue List head. 
FR @ : : 328 MOVL RO, R1 3; Copy that address. 
51 61 DO OC2E 3958 10S: MOVL (R1), R1 ; Get next restart CDRP. 
50 51 bi O0C31 3959 CMPL R1, RO ; Returned to the Listhead yet? 
07 13 0C34 3960 BEaL doö : Branch if returned to Listhead. 
FO Al FO AS 01 OC36 3961 CMPL CORPSL_SEQNUM(RS), : Is seqnum of CORP of interest less 
C38 308 CDRPS$L_SEQNUM(R1) 3 than seqnum of current List entry? 
as Fe 96 BGEQU§ 10% : If not, ge back to try next List 
C30 3964 3; entry. Else fall thru and insert 
C30 3965 3; CDRP of interest before the 
bc D 396 3 current entry. 
0481 65 0t $79 8 40$: INSQUE (R5),a@CDRPSL_FOQBL(R1) : Insert before current entry. 
05 rt 38) 200$:  RSB 3; Return to caller. 
8 3 300$:  .WEAK DUSRSTRTQ_HIRT_CDRP 3; This is not present in tape class 
3 drivers. 
F3BB° 31 OC4 358 BRW DUSRSTRTQ_HIRT_CDRP ; Process HIRT —— CDRP and 
8 are : return to calle | 
FEBA 31 O0C4 378 400$: BRW DUTUSCLEANUP_CANCEL : For Cancello cloemp cancel and 
$2 3 eretura to calle | 
C4 358 999$: BUG_CHECK MSCPCLASS, FATAL 3; Attempt to insert non-CDRP in the 
C4C 3980 ; CDODB restart queue. 
| 
| 
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-SBTTL DUTUSRECONN_LOOKUP = Reconnection SCS Lookup Action Routine 
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DUTUSRECONN_LOOKUP = Reconnection SCS Lookup Action Routine 
Functional Description: 


purine broken connection gheonup this is the SCS action routine for 
both SCAN_RSPID_WAIT and SCAN_R f. SCAN_RSPID_WAIT is the SCS service 
which scans the RDT wait queue for entriés belonging to a given 
—— on. SCAN_RDT is the SCS service which scans the Response-id 
Descriptor Table (RDT) for entries belonging to a given connection. 
For connection cleanup, the operations performed in both cases are 
very similar. for those cases where, some cleanup operation is not 
appropriate for one or the other situtation, which type of scan is in 
progress is determined from R1 (as setup by the caller of the scan SCS 
vice). 


WOOOOO00O 
OOONA UE PD 3 


99 


CORPs which have already been canceled are ignored by this routine. 
They will be — processed when the request which canceled them 
is cleaned up. In all other cases, the CDRP is renoved from whatever 
wait queve it is on. ALL CDORPs presented to this routine are assumed 
to be waiting for resources. for connection permanent CDRPs, no other 
processing is required. In particular, connection permanent CDRPs are 
never placed on the restart queue. This is inappropriate because the 
need for whatever function the connection permanent CDRP was performing 
disappeared with the broken connection. Also, since all connection 
permanent CDORPs are easily located, they need not be queued anywhere 
to allow easy location when the time comes to release their resources. 
Connection permanent CDRPs never point to a wait reasons counter, so 
that processing is not necessary either. 


ALL other CORPs are tested for a wait reasons counter pointer. If one 
is present. the wait reasons counter is decremented. DRPs on the 
RSPID-wait queue, are obviously waiting for resources. Otherwise, the 
fact that all possibly active requests have been cleaned up before 
this routine is called guarantees that CDRPs presented to this routine 
are 2** for — Note: this routine helps perpetuate that 
guarantee by exiting via DUTUSDRAIN_CDDB_CDRPQ, which cleans up all 
active requests. Therefore, the cleanup of the CDRP presented to this 
routine will reduce the number for reasons activity is waiting and the 
wait reasons counter should be (and is) reduced to reflect this. 


If sopreee tate the CORP is inserted into the restart queue. etoalty. 
DUTUSDRA N_CDDB_CDRPQ is called to cleanup and requests made active by 
the resources released during the cleanup of this CDRP. 


Inputs: 
R1 LBC ==> SCAN_RSPID_WAIT 
LBS ==> SCAN_RDT 
R3 COT address 
RG POT address 
R5 CORP address 
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Implicit Inputs: 
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CDTSL_AUXSTRUC (R3) CDDB address 
Outputs: 


RO, R2, and RS are destroyed. 
ALC other registers are preserved. 


Side Effects: 


The CORP presented to this routine is readied for retry (or reuse) 
after the a new connection to the remote MSCP server is formed. 


vn 
o 
| od 


ast —X 
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UTUSRECONN_LOOKUP: : 


ASSUME CDRPSV_CAND EQ 0 Branch if this is a 


1A GOA BLBS CDRPSL-DUTUFLAGS(R5), 50$ canceled CDRP. 
6 REMQUE (R5), R Remove CORP from queue. 
1240 a5 03 BS #CORPSV_PERM, - Branch if this is a 
CORPSL _BUTUFLAGS (RS) 50$ ermanent CORP. 
50 28 AS MOVL EDRPSL_RUCPTRCR », RO et wait counter pointer. 


Branch if no pointer present. 


ECL a UR Else, decrement wait counter. 
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D 
10$ PUSHR #*M<R1,R3> Save registers. 
53 560 As MOVL cost AUXSTRUC(R3), R3 Get CDDB address. 
A BSBBSs«éDUTU INSERT RESTART Setup CDRP restart. 
oA POPR #*A<R1,R5> Restore registers. 
12 51 50$: BLBC 1, RECONN_EXIT If SCAN_RSPID_WAIT, exit now. 
—— BRB DUTUSDRAIN~CDDB_CDRPQ Else, empty active CDRPs queue 


55 
oo 
oo 


and return to caller. 
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-SBTTL DUTUSDRAIN_CDDB_CDRPQ - Drain Active CDRPs Queue 
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; DUTUSDRAIN_CODB_CDRPQ = Drain Active CDRPs Queue 
; Functional Description: 
ALL CORPs found on the active CDRPs queue, CDDBSL_CDRPOFL, are 


processed and placed on the restart queue, CDDBSL_RSTRTQFL, as 
appropriate. 


7 
if 
72; 
“3 3 
4 
4 
8 ; 
; Inputs: 
Z ; R3 COT address 
5: 
oi 
5: 
0; 
91 : 
38 : 
9% ; 
95 ; 
a8 : 
D 


; Implicit Inputs: 
: CDTSL_AUXSTRUC(R3) CDDB address 
: Outputs: 
; ALL registers preserved. 
; Side Effects: . 
Any CORP found on the active queue is processed by DUTUSINSERT_RESTARTQ. 


UTUSDRAIN_CDDB_CDRPQ: : 


PUSHR #*M<RO,R1,R2,R3 
MOVL 


CDTSL_AUXSTRUC(R3), R3 : Get CDDB address. 


9 
O98 
191 R4,R5> 3; Save registers. 
1 
: § 10$: — @CDDBSL_CDRPQFL(R3), RS Get an active CDRP 
: 5 
i 
109 
110 
111 
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Insert active CDRP in the 
restart queue and Loop. 


208: POPR #*M<RO,R1,R2,R3,R4,R5> ; Restore registers. 
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Branch if no active CDRPs. 
BSBB ——— 
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; Return. 
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~SBTTL DUTUSTERMINATE_ PENDING = Fail pending requests with SS$_VOLINV 
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DUTUSTERMINATE_PENDING = Fail pending requests with SS$_VOLINV 
; Functional Description: 


This routine locates at peewee for 1/0 post processing all 1/0 
pending requests on the input UCB. ALL requests are completed 
with a SS$_VOLINV, ‘‘volume is not software enabled’’ status. 


The active requests queue is not scanned by this routine. Either 

there should be not requests in this queue (i.e. there is no good 

connection for the requests to be processed on), or the active 

ce press will eventually be finished, successfully or otherwise by the 
server. 


Inputs: 
R5 UCB address 
Implicit inputs: 
UCBSL_CDDB(RS) CDDB address 
UCBSL_IOQFL(RS) header for pending 1/0 request queue 
CODBSC_RSTRTQFL(cddb) header for queue of 1/0 requests awaiting 
SCS connection reestablishment 
Outputs: 


RO through R2 are destroyed. 
ALL other registers are preserved. 


Implicit outputs: 
None. 


DUTUSTERMINATE_PENDING: : 


ADDLS M#CODBSL_RSTRIQFL, - 


Get address of restart Qhead. 
UcBst CBoB(RS), R1 


PDD DPI Be B* BB EY EE III INIA PIRINPINININUIY 2 ——— 
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Restore next CDRP address. 
Loop till no more CORPs. 


Get next pending IRP. 


ASSUME CDRP FAFOFL EQ 0 
MOVL R1, R : Init ‘previous’ CORP pointer. 
10$: MOVL CORPSL _FOFL CRO), RO : Link to next CDRP. 
11$: CMPL RO, R ; ALL restart CORPs tes ed? 
BEQL : Branch if all CORPS done. 
CMPL DRPSL_UCB(RO), RS : Is this CDRP for right UCB? 
BNEQ : Branch if not right UCB. 
PUSHL CDRPSL_FOQFL(RO) : —** UCB, save next CDRP 
REMQUE ° 3; address and erqveus this CORP. 
post tone status=SS$_VOLINV 3; Then, post this CORP 


BRB. tié«dA'ASS 
REMQUE @UCBSL_IOQFL(RS), RO 
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vousoot DUTUSTERAINATE: PENDING a Bb re 1e-SEP-1986 40:09:01 FORIVER. gee dbuTUSUBS.maR:2 "2% (35), | 
=a. wae a BUST_IRP’status=SS$_ VOL INV 4 Any Mende antes | 
€7 11 i i BRB ~ if ngs ; Loop till no more IRPs. 
05 EE 4174 80S: RSB ; Return. 
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—W DUTUSDEALLOC_ALL - Seatlocote att SCS re 12 P-1 138 98: 38: 3 DRIVER. S SRC IJDUTUSUBS .MAR; 2 — (28) 
SBTTL DUTUSDEALLOC_ALL = Deallocate all SCS resources 

«SBTTL DUTUSDEALLOC“RSPID_MSG = Deallocate SCS RSPID and msg. buf. 


; DUTUSDEALLOC_ALL = Deallocate all SCS resourc 
DUTUSDEALLOC-RSPID_MSG = Deallocate SCS RSPID. ond message buffer 


Functional Description: 


; These routines deallocate various combinations of SCS resources. 
; These routines are the power behind the DEALLOCATE macro. 

3 Inputs: 

a Soe. 

; Outputs: 

: RO = R2 are destroyed. 

: ALL other registers are preserved. 

D 


UTUSDEALLOC_ALL:: 


2c AS OS TSTL  CDRPSL_LBUFH_AD(RS) 
1 BEQL ‘108 


06 
2c AS) 64 


Are map resources allocated? 
Branch if not allocated. 

Else, deallocate them. 

Signal no map stuff allocated. 


UNMAP 
al CLRL — CDRPSL_LBUFH_AD(R5) 


DUTUSDEALLOC_RSPID_MSG: : 


tt tt I | S§ M~QOODVOOGOOOOCOCOOOOOOOOOOWDOGGcDcMDOcdo vw 2 
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1c AS OD TSTL CORPSL_MSG_BUF (R5) ; Is msg. buffer allocated? 
03 BEQL 3; Branch if not allocated. 
208 DEALLOC_MSG_BUF ; Else, deallocate it. 
20 AS TSTL GpOPeL RSPIDCRS) ; Is RSPID allocated? 
06 BEQL ; Branch if not allocated. 
DEALLOC_RSPID ; Else, deallocate it. 
30$: 
RSB ; Return, 
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cer : § : -SBTTL DUTUSPOST_CDRP = Queue CDRP for post processing | 
CE7 4004 : 
cee ? 5 ; DUTUSPOST_CDRP = Queue CDRP for post processing 
cE? 4 5 : Functional Description: 
cE? 4 § : The input CORP is queued to 1/0 post presese ing with the input final | 
CE7 42350; 1/0 status. ALl SCS resources held by the CORP are appropriately | 
CE7 4231 ; released. 
CE7 4 3 : 
CE7 4 3; Inputs: | 
CE7 4234; 
pce? 4235 ; RO CORP address 
CE7 4 $ : R1 final 1/0 status 
SEE? 2538 § output 
; Outputs: 
OCE? 4239; * 
OCE7 4240; RO & R1 are destroyed. 
OCE7? 4241 ; all other registers are preserved. 
OCE7 4 4g ;-- 
OCE7 424 
OcE? 4 44 DUTUSPOST_CDRP: : 
OA AO 39 91 OCE? 4246 CMPB #OYNSC_CDRP, - ; Guarantee that a CDRP is being | 
OCEB 4247 SORES _CO_TYPE (RO) 3 Tig gage 
7 ~=612 ‘ee ? $8 BNEQ 998 : If not, bug check. 
| 
3 BB OCED 4250 PUSHR #*M<R2,R3,R4,R5> : Save registers. 
55 0 DO OCEF 4251 MOVL : Move CDRP address. | 
50 BC AS 00 cre 4 3g MOVL  CDRP$L_UCB(RS), RO : Get UCB address. 
54 0084 C0 00 are . e MOVL UCBSL_PDT(RO), R4 : Get PDT address. | 
DB AS 51 dO ocee 4255 MOVL R1, CORPSL_IOST1(R5) ; Set final 1/0 status. 
DC AS D4 CFE 458 CLRL = CDRPSL_10ST2(R5) ; Clear second status longword. | 
1¢ AS DS ODO 4258 TSTL CORPSL_MSG_BUF (R5) : Is message buf. allocated? 
03 13 OD05 4259 BEQL 1 ; Branch if not allocated. 
FEES 30 9 9 BSBW DUTUSRESTORE_CREDIT ; Else, restore send credit. 
BC 10 QDOA 4 ¢ 10$: BSBB DUTUSDEALLOC_ALL : Insure that all SCS 
“ : ? $2 3 resources are deallocated. 
53 BC AS 00 OD ¢ 4265 MOVL CDRPSL_UCB(RS), R3 : Get UCB address. | 
08 CcOAS 06 O00 €D OD & 8 CMPZV #10$V_FCODE, #f0$S_FCODE, - : Branch if this was not a 
D16 426 CDRP$Q_FUNC(RS), MTO$_PACKACK , PACKACK function. | 
08 13 b18 4 $8 BNEQ 14$ 
03 68 AS «OC COE DI8 4 8 BBCC gt MSCP_PKACK, - ; Clear packack flag and 
DiD 4270 UCB$W_BEVSTS(R3), 14$ : branch if it was clear. 
56 43 87 4 DECW UCBSWTRWAITCNT(RS) : Else, decrement wait count. | 
1A CO AS 06 00 ED OD 4 rg 148 CMPZV) «#1OSV_FCODE, #10$S_FCODE, - : Branch if this was not a 
— 6 4 os Tt DRPSO_FUNC{RS), WTOS_SETCHAR ; SETCHAR function. | 
23 cOaAS 06 bo ED QOD § 6 CMPZV «=#10$V_FCODE, #10$S_FCODE, - : Branch if this was not a 
DoE 407 CORPSO_FUNC (RS), WTOS_SEfMODE ; SETMODE function. | 
08 12 OD2E 4278 BNEQ % | 


<o | 
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buTusuBs DISK/TAPE CLASS DRIVER SUBROUTINES 1 =~ $EB-1984 00:53:92 
v04-001 DUTUSPOST_CDRF = Queue CORP for post pro 14-SEP-1984 16:09: 
03 68 43 02 4 79 BBCC sucesy TU. SEQN Pe * 
56 43 DECW UCBSWIRWAI —990 
4 j 17$ PUSHL 
55 4284 MOVL 3, RS 
0000 000° gf 4285 JSB G6*§CSS$UNSTALLUCB 
5 4 6 POPL RS 

04 CA AS 00 4 : BBC #IRPSV_BUF IO 

4 CORPSW- “STS(RS), 208 
CA AS 02 4 30 BICw #IRPSM“FUNC, tonbsu. STS(RS) 
50 _00000000'GF 4 3 20$:  MOVAB G*IOCS$GL_PSBL, RO 

00 80 AO AS 429 INSQUE CORPS$L_IOQFL(RS), a(RO) 

4 34 SOFTINT #IPL$_TOPOST 
3c 429 POPR #*M<R2,R3,R4,R5> 

429 RSB 
4 
4 
4 


98 
+ 999$: BUG_CHECK MSCPCLASS, FATAL 


AX/VMS Macro V04-00 
DRIVER. SRC JDUTUSUBS .MAR; 2 


Pete Ge 


branch if it was clear. 
Else, decrement wait count. 


Save CORP ee 

Copy UCB addre 

Possibly Bu the UCB. 
Restore CDRP address. 


Is this a girees 1/0 request? 
Branch if direc 


Clear seq. NOP set and 


; Else, clear —8 read bit. 


Get 1/0 pest queue tail ptr. 
Insert CDRP on post queue. 
Request post processing serv. 


Restore registers. 
Return. 


Attempt to insert non-CDRP in 
the 1/0 post processing queue. 


Page 94 | 
” (41) | 
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1 DUTUSKILL_THIS_THREAD = Fix thread caugh 14-SEP-1984 16:09: DRIVER. SRC JDUTUSUBS .MAR; 2 (42) | 
ze . SeTTA DUTUSKILL_THIS_THREAD = Fix thread caught by async. conn. failure | 
bg 4304 : | 
? 5 ; DUTUSKILL_THIS_THREAD - Fix thread caught by asynchronous connection failure | 
bg — > Functional Description: | 
+3 4 § : This is an internal routine that is either jumped (BRW) to or called 
+ ? 19 : (BSBW). 
D65 4 i ; it is jumped to by a thread that has suffered an allocation failure | 
4 4315 ; ndicating that its CONNECTION has failed. This should only happen 
D 4314 ; when the CONNECTION fails eerie with respect to the class | 
D65 4315 ; driver and the cause of the CONNECTION failure (e.g. power failure) 
obs ; 18 ; interrupts this very driver thread in mid execution. | 
065 4318 : This code is called when the class driver determines that the 
0065 4319 ; intelligent controller is acting in an ‘‘insane’’ manner and that the 
0065 4320 ; class driver therefore should bring down the CONNECTION and 
8 13 re-synchronize (i.e. re-CONNECT) with the controller. 
Spee 4 : : In either case, the CDRP is placed at the tail of the connection 
0065 4324 ; outstandin requests queue, CDDBSL_CDRPQBL. This queue holds ail 
88 4325 ; those CORP’s with outstanding requests in the controller plus those 
D65 4326; CORP's of ‘*killed’’ driver threads. What all these CDRP's have in 
0065 4327 ; common is that they are NOT on any resource wait queues. After 
0065 4328 ; queueing the CORP, this routine does an RSB which returns to either to 
0065 4329 ; caller's caller if entry was made via a BRW or to caller if entry was 
8* 3 made via a BSBW. 
SBE S48G | Inues 
0065 4334: R3 UCB address 
p63 ; $3 R5 CDRP address 
44 — $ : Implicit Inputs: 
D65 4 5 ; UCBSL_CDDB(R3) CDDB address 
at ; re : CODBSC_CDRPQBL (cddb) outstanding request queue backlink 
+ ? m4 : Outputs: 
D65 4344; R1 is destroyed. 
O° ? 8 ALL other registers are preserved. 
065 4347 * 
+ : $8 DUTUSKILL_THIS_THREAD: : 
51 00BC C3 DO 0065 4 20 MOVL  UCBSL_CDDB(R3), R1 ; Get CDDB address 
0461 65 OF QD6A 4 INSQUE (R5),~aCDDBSi_CDRPOBL(R1) : Insert CDRP onto tail of queue 
D6E 4 § ; of CDRP’s sent to the port. 
0S QD6E 4 RSB ; Return to caller or 
D6F 4354 ; caller's caller. 


| 
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DUTUSUBS DISK/TAPE CLASS DRI 16-SEP-1984 00:53: AX/VMS Macro V04-00 Page 6 | 
—WB DUTUSCHECK_RWAITCNT = Validate UCBSW_RWA 19-365 =13 4 90:33:99 LORIVER. SRETOUTUSUBS.MAR: 2 * 1 
.SBTTL DUTUSCHECK_RWAITCNT = Validate UCBSW_RWAITCNT 
D6F ; 
p f ; DUTUSCHECK_RWAITCNT = Validate UCBSW_RWAITCNT | 
Det : Functional Description: | 


This routine gonperes UCBSW_RWAITCNT against a computed value based 
upon information available as to the reasons that RWAITCNT might be 
bumped. If the two values compare, control is returned to the caller. 
If they do not compare, an INC NSTATE bug check is generated. 


: This routine does not test for SCS wait states as possible 
§ incrementers of UCBSW_RWAITCNT. Therefore, it MUST NOT be called when 
: a possibility exists for a thread to be in an SCS wait state. 


4 
4 
4 
4 
4 
6 | 
4 | 
4 | 
4 | 
| 
4 
| 
4 
4 
; | 
¢ 7 Inputs: 
437 re 
4374 R5 UCB address 
4375 ; 
? is ; Outputs: 
? f ALL registers preserved. 
$353 | 
2 1 DUTUSCHECK_RWAITCNT:: | 
7E 50 4 3 mova RO, -(SP) : Save corrupted registers. 
50 ‘ ; CLRL RO ; Init accumulator. 
02 68 45 OA 4 $ BBC #UCBSV_MSCP aire ~ 3; Check for wait count 
4 UCBSW_BEVSTS(R5), 1068 z explicitly bumped. 
50 ? 3 INCL RO : If so, bump accumulator. 
02 68 AS) (08 4390 10$: BBC #UCBSV_MSCP_MNTVERIP, - 3; Check for wait count bumped 
4391 UCBSW_DEVSTS(RS), 128 ; by mount verification. 
50 2 2 INCL RO 3; If so, bump accumulator. 
02 68 AS OC 4394 128: BBC #UCBSV_MSCP_PKACK, = 3; Check for wait count bumped 
4395 UCBSW_BEVSTS(R5), 208 : by packack in progress. 
50 : 38 INCL RO : If so, bump accumulator. 
4 a8 208: eWEAK DUSTEST_HIRT_RWAITCNT 
51 00000000 ¢F 439 MOVAB GDUSTEST HIRT _RUAITCNT, R1 ; Get routine address for HIRT | 
2 44 ? BEQL 0$ 3 check and branch if none. 
61 rr JSB (R1) 3; Else, perform HIRT check. | 
40 AS 3 44 § 30$: CMPB #CS_TAPE, UCBSB_DEVCLASS(R5) =; Is this @ tape? | 
44 BNEQ 40$ : Branch if not a tape. 
02 68 AS 2 4405 BBC #UCBSV_TU_SEQNOP, - 3; Is a sequential NOP in 
44 $ UrBSU_DEVSTS(R », 408 : progress: branch if no. | 
50 a INCL § ; Else, bump accumulator. 
56 AS 50 4409 40$: CMP RO, UCBSW_RWAITCNT(RS) ; Check for correct RWAITCNT. | 
04 rr} BNEQ 99$ : Branch if no match. 
50 «BE 4412 mova (SP)+, RO ; Restore registers. 


poste — — — 


oS 


a 


| 
9 | 
DUTUSCHEEK RUAITENT © Val tdoce Uresw_RUA InesEp=t9Re $9; 8: BF HONIVER. cxedouYususs.mar:2 2% (25), 
0s 83 441 RSB ; Return. | 
DAB 4415 99$:  BUG_CHECK MSCPCLASS, FATAL ; RWAITCNT test failed. | 
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} -SBTTL DUTUSLOG_IVCMD = Error log an invalid MSCP command 
1 
DUTUSLOG_IVCMD = Error log an invalid MSCP command 
4 
46 
4k 
G4 
4h 
ae 
46 
66 
66 
44 
4s 
44 


Functional Description: 


Called via the IVCMD_BEGIN macro in response to receipt of an ‘‘invalid 
command’ Taye gone per nes status, this routine produces an error log 
entry conta ning both the entire MSCP end-packet and the MSCP command 
which produced that end-packet. 
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Saving every command ere sent out for possible insertion in the 
error log in the unlikely event of an “invalid command" error is 

highly inefficient. Therefore, in the rare cases where an ‘'invalid | 
command’ error is reported, the class driver must ‘‘retrace its steps’ 
to produce a replicate of the MSCP command which caused the error. 

This is accomplished by producing a co-routine execution thread in 
which the class driver executes most (if not all) the same instructions 
it executed to build the original MSCP 2 packet. The only 
instructions which cannot be executed in this co-routine thread are 
those instructions which might attempt to suspend the fork execution 
thread (e.g. allocating mapping resources). The invalid command 
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4440 ; co-routine thread cannot break IPL synchronization. Then, just before 
4441 ; the duplicate command packet would be sent to the MSCP server, control 
ine 3 is returned to this routine, which places the information in the error 
5 og. 
4444 ; 
4445 ; Three macros are provided for class drivers to use in handling 
ae 3 “invalid command’ errors: 
4448 ; IVCMD_BEGIN begin processing an invalid command and start the 
ret 3 the co-routine thread 
ret ; IF IVCMD branch if within an invalid command co-routine thread 
ree ; IVCMD_END end an invalid command co-routine thread, make the 
ret: 3 error log entry, and return to normal processing 
83 For a class driver, the invalid command processing style might look 
ret 3 something Like this: 
4086 ; START_func: | 
£289 ; : Setup packet for command func. 
4461 : If _IVCMD then=func_IVCMD_END 
44 § ; SERD_MSCP_MSG 
* ? 3 DO_ACTION KKK 
4465 ; ACTION_ENTRY ICMD, SS$_CNTRLERR, func_IVCMD 
seg? ; ACTION_ENTRY — END_TABLE 
446 : func_IVCMD:" 
44 ? 3 IVCMD_BEGIN 
4471 ; BRB START_ func 
4472 ; func_IVCMD_END: 
4475 ; IVCMD_END 


— 
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Note: +4 invalid command processing occurs out-of-Line with respect 
to the main execution thread. (ovel d command processing is not the 
normal case and rightfully should be processed outside t — mainline 

code path. IF_IVCAD contains a single, highly-optimized instruction. 


Somtimes it will be — 22* to repeat the start 1/0 B. off of 
IRPSW_FUNC in order to put the correct MSCP opcode and modifiers into 
the duplicate MSCP packet. for this Pycpose both class drivers 
define a label of the form xx_BEGIN_IVCMD (where xx is either DU or TU, 
as appropriate). This label fias the implicit guarantee that nowhere 
between it and the beginning of the function specific start ive 
routine are there any instructions which cannot be executed in an 
invalid command’’ co-routine thread. 


Discription of Macros: 
IVCMD_BEGIN 
Parameters: None. 


Inputs: 
RO SS$_ status code for the I0SB after the error is logged 
R1 scratc 
R MSCP end-packet address 
R UCB address 
R4 POT address 
RS CORP address 
Outputs (beginning of the co-routine thread): 
RO scratch 
R1 scratch 
R2 Duplicate MSCP command packet address (for forming the MSCP 
command which caused the error) 
R3 UCB address (same as input to IVCMD_BEGIN) 
RG POT address (same as input to IVCMD BEGIN) 
RS CORP address (same as input to IVCMB_BEGIN) 
IF __IVCMD 
Parameters: 


then label to receive control when execution is within an invalid 
command co-routine thread 


Inputs: 
RS CORP address (same as input/output to IVCMD_BEGIN) 
Outputs: None. 
IVCMD_END 
Parameters: None. 
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DAF 4 $ ' 
fo el 
DAF 4534 ; RO scratch ' 
DAF 4555 ; R1 serarch ' 
DAF 4 § 3 R —* cate MSCP command pkt. address (as output from IVCMD_BEGIN) ! 
DAF 4 3 R UCB address (same as input/output to IVCMD_BEGIN) ' 
DAF 4 8 3 RG PDT address (same as input/output to IVCMD BEGIN) ' 
oA — 3 R5 CORP address (same as input/output to IVCMB_BEGIN) 
+! 2 é8 : Outputs: ! 
DAF 4543 ; RO SS$_ status code for the I0SB (same as input to IVCMD_BEGIN) ! 
DAF $243 3 Rt LBC ==> CORPSV_ERLIP clear when IVCMD_BEGIN calle ! 
DAF 4545 ; LBS ==> CORPSV_ERLIP set when IVCMD_BEGIN called ! 
DAF $268 : Rp MSCP end-packet address (same as input to IVCMD_BEGIN) : 
DAF $34 3 BR UCB address (same as input to IVCMD_BEGIN) ' 
DAF 4 8 : R4 PDT address (same as input to IVCMD BEGIN) ' 
—8 rth : R5 CORP address (same as input to IVCMB_BEGIN) 
a $3 1: Implicit Outputs: ; 
—8 8 CORPSL_DUTUFLAGS(R5) CDRPSV_ERLIP set 
DAF 4335 > Side Effects: ! 
DAF 1329 : While the invalid command co-routine thread is executing, a relatively ' 
DAF $228 3 complex stack structure exists below the stack section used within the ! 
DAF 4559 ; co-routine thread itself. As much as anything else, this complex ’ 
DAF 4560 ; stack structure prohibits the co-routine thread from being fork- ' 
DAF 4561 ; suspended or from breaking IPL syocarentast ten. Generally speaking, ! 
DAF £296 : the stack structure looks Like this: ! 
DAF 4563; ’ 
DAF $288 : \ stack space for use by invalid command co-routine thread \ ( 
DAE 868 | 
DAF 4368 : return address used by IVCMD_END 2($?) | 
~ 2 4 : zero (used to determine that control was correctly returned) | 
DAF 878 t :(R7)° 
—* fe 3 \ invalid command MSCP end packet \ | 
DAF 4 7 : ' — — — — — — — — — — — — ee — — — oe * a De SS Oe Se ew se we ec ' | 
DAF 1338 2 H + :(R2) ( 
DAF 4 4 : \ invalid command MSCP command packet \ | 
DAF 4579; ' H | 
*3 3 SOO v ss ———— | 
DAE 4588 : \ other stacklocals used by DUTUSLOG_IVCMD \ | | 
Py ' ' 
DAF 4 4 3 See — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — ee > — — | 1 
~ 2 3 3 ‘ saved SS$_ status value (saved RO) ' | | 
DAF 4 ; ; saved CDRPSV_ERLIP value in low bit (returned in R1) | 
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saved MSCP end-packet address (saved R2) 


saved UCB address (saved R3) 


saved PDT address (saved R4) 


saved CDRP address (saved R5) 


saved R7 


saved return address from IVCMD_BEGIN and later IVCMD_END 


6 See nD BF — ED KETO SE BDA ewe nen we ower eS 
6 * R7 is not an explicit input/output for any of the invalid 
6 § command processing logic. It is mentioned here simply as 
6 @ point of information. 
$05 
606 : Define the stack offsets for which R7 will act as base. 
608 ; N.B. these offsets assume the following initialization sequence: 
619 i entry: 
61g : PUSHR #*M<RO,R1,R2,R3,R4,R5,R7> 
: MOVAB AVCHD WORK (SP) , SP 
: MOVL SP, R 


00000030 IVCMD_ENDSIZ = MSCPSK_MXCMDLEN + 12 

SOFFSET 0, POSITIVE, <- ; Define R7 based offsets: 
<ivCMD_ENDMSG, IVCMD_ENDSIZ>, - : End message buffer 

<IVCMD"ORGMSG. MSCPSR_MXCMDLEN>, - : Original message buf. 

<IVCMDMSGLEN, 0>, = - Size of both message buffers. 

<IVCMDZALIGN, <<<IVCMD_MSGLEN+3>6*c3>-IVCMD_MSGLEN>>, - 


- ; Add local working storage after this Line. 


<IVCHD_WORK, >, - ; Total stacklocal size. 
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: Saved registers etc.: 
<SVSTATUS>, = ; RO, SS$_ status code 
<SVERLIP>, = 3; R1, saved ERLIP hee 
<MASCP_BUF>, = 3; RZ. MSCP message buffer. 

SVUCB>, - ; RS, UCB address. 
<SVPDT>, = 3 R4, POT address. 
<SVCDRP>, - 3 Re. CORP address. 
<SVR7>, = ; R7, who knows or cares. 
SREY? ~ ; Return address. 

IVCMD_ENDMSG 
IVCMD_ORGMSG 
IVCMD_MSGLEN 
IVCMD_ALIGN: 
IVCMD WORK 
SVSTATUS: 
SVERLIP: 
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5 MSCP_BUF: 
§ SvuCE: 
SVPDT: 
8 oa * 
SVR?: 
SVRET: 


MOVAB 


MOVL 


ASSUME 
BISB 


SODNAMN EWI OOO NAME UWI O O00 
= 
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INIT_MSCP_MSG Ucb=TR 


DUTUSLOG_IVCMD:: 


#*<RO,R1,R2,R3,R4,RSR7> 
AVCHD WORK (SP) , sb 


#IVCMD_ENDSIZ, (R2), - 
1VCMD_ENDMSG(R7) 
SVCDRP EQ <SVPDT + 4> 
SVPDT(R?), R4 
SVUCB(R7). R3 


#CDORPSV_ERLIP, #1, - : 
CORPSL BUTUELAGS(RS) SVERLIP(R7S 
IVCMD_ORGMSG(R7), - . 
CORPSC_MSG BUF (RS) 


MSCP_BUF(R7), = 
CORPSL_MSG_BUF (RS) 
CDRPSV"IVCAD EQ 8 
#<CDRPSM_IVCMD @ -8>, - 
CORPSL_DOTUFLAGS+1(R5) 


Save registers. 
Make stacklocal space. 
Setup stacklocal pointer. 


Copy the MSCP end-packet to 
the error log work area. 


Restore PDT and CDRP addrs. 
Restore JCB address. 


Save the ERLIP bit. 


Initialize the duplicate 
MSCP command pkt. address. 
Initialize the pkt. itself. 
R2 now has dup. pkt. addr. 
Restore correct MSCP end 
packet address in CDRP. 


Signal that an invalid 
command co-routine is active. 


The JSB which follows initiates the co-routine thread. 


: IVCMD_END will return control to the instruction following the JSB. 
4665 ; The zero longword pushed onto the stack is used below to determine 
§ : whether control was returned via IVCMD_END or a RSB. 
CLRL -(SP) : Push signal longword. 
JSB @SVRET(R7) : Begin co-routine thread. 


3; Make 


MOVZBL 
MOVZBL 
MOVAB 
JSB 


: started by t 


; The fol Loutns test attempts to insure that the co-routine thread 

e roperly returned here via IVCMD_ 
; With luck, this test allows timely detection of a bug in the class 
; driver, so that we can drop our cookies 


JSB above has 


R 

999$ 

RO SVRET(R?) 

CDRPSV_IVCMD EQ 8 
<CDRPSM_IVCMD @ -8>, - 
CORPSL_DOTUFLAGS+1(R5) 

invalid command error log entry. 


#EMBSC_IVCMD, RO 
#IVCMD"MSGLEN, R1 
IVCMD_ENDMSG(A7), R2 
G*ERLSLOGME SSAGE 


END. 
on the floor neatly. 
Get final return address. 


Branch if signal lw. ed. 
Save final — — 288 


: Clear the invalid command 
3 co-routine is active flag. 


Signal type of Logged message. 
Pass message length. 

Pass message base address. 
Call to error log message. 
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4 
SE SB AE 9E f 4 5 MOVAB IVCMD_WORK+4(SP) 3; Pop stacklocal zero longword. 
OOBF 8F Ba E ca POPR #*°M<RO,R1,R2,R3, he® RS, R7> : Restore registers eutputs. 
5 : 5 Z 2 RSB 3; Return. 
€ 4694 999%: BUG_CHECK MSCPCLASS, FATAL ; Control was not returned 
EOD 4695 : from the invalid_command 
EOD 4696 3 co-routine via a IVCMD_END. 
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-SBTTL DUTUSDODAP = Do Determine Access Paths Processing 


; DUTUSDODAP = Do Determine Access Paths Processing 
: Functional Description: 


This routine supervises the sending of Determine Access Path (DAP) 
congends for the purpose of discovering the current topology of the 
MSCP units (either disks or tapes) accesible to this processor. These 
commands make us aware of alternate (not currently accessible) paths 
to mounted units. 
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Inputs: 
R1 CODB address 
Outputs: 
Registers RO through RS sre modified. 


3; Number of passes through DODAP before each DAP processing thread is started. 
DAP_COUNT = 10 

DUTUSDODAP: : 

#CODBSV_DAPBSY, - 
CDDB$W_STATUS(R1), 90S 
DECB  CDDBSB-DAPCOUNT (RI) 
BGEQ &80$ 


#DAP_COUNT, = 
CDDBSB_DAPCOUNT (R1) 


Branch if DAP CDRP is in 

use and set in use flag. 

Count number of passes through 
here before going 32 — 
Refresh passes counter. 
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POPS Be BB BB BB 9 tO OO 


; Get DAP CORP address. 
; Get PDT address. 
; Setup ‘‘previous’’ UCB address 


n e 
; Allocate a RSPID. 


Link to next UCB. 
ranch if no mo 
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CBCKAIN - 
“UCBSL_CDDB_LINK>(R1), R3 
ALLOC_RSPID 


10$: nov $L_CDDB_LINK(R3), R3 
BEQL 
BBC #UCBSV_VALID, - 
STS(R35 


BSL 108 
mOvL = gf ORPBL UCBCRS) Put UCB in DAP CORP. 


Allocate a message buffer. 


BLBC 508 Branch if connection failure. 
INIT_MSCP_ASG ucb=(R3) Initialize MSCP packet. 
MOVB #ASCPSK_OP_DTACP Set DAP opcode. 
MSCP$B_OPCODE (R25 
SEND_MSCP_MSG 3; Send message to MSCP server. 
DEALCOC_MSG_BuF : Deallocate response message. 
CLLR p45 ; Recycle RSPID for reuse. 
0 ; Loop through all UCBs. 
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DEALLOC_RSPID Deallocate DAP RSPID. 
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4 PERMCORP_TO_CDDB — cddb=R1 ; Get CODB address. 
4 ‘ 80S: ASSUME CoDB V_DA 

13 Al 04 4 BICB #<CODBSM ast th -8>, - z Clear DAP CORP in use flag. | 
4 § ra) zꝛut — 
4759 90$: RSB : KILL this fork thread. 
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«SBTTL DUTUSSEND_DUPLICATE_UNIT = Send duplicate unit message to operator 
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DUTUSSEND_DUPLICATE_UNIT = Send duplicate unit message to operator 

; Functional Description: 

: A message indicating the detection of a duplicate MSCP unit number 
; is sent to OPCOM. 

; Inputs: 

; R3 address of the UCB for which a MSCP server detected a 

: duplicate unit number 

: Outputs: 

& ALL registers preserved. 

DUTUSSEND_DUPLICATE_UNIT:: 


3F Save registers. 

Jockey UCB addr. to right reg. 
Get message number 

Get OPCOM's nei bon address. 
Send the message. 

Restore registers. 


PUSHR = #*M<RO,R1,R2,R3,R4,R5> 
M R35, R 


OVL 

MOVZBL #MSG$_DUPUNITNO, R4 
MOVAB G“SYSSGL beluncen” R3 
JSB G*EXESSNDEV 
POPR #*M<RO,R1 ERD SRS oR4,R5> 
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DUTUSDUMP_COMMAND = Copy MSCP command to diagnostic buffer 

Functional Description: 
Copy the contents of the MSCP Command to she eiaqnegt ts buffer whose 
address is pointed to by CORPSL_DIAGBUF (R5) is the MSCP message 
which will be sent to th e remote server. 


Inputs: 
RS CDRP address 


| 
DUTUSDUMP_COMMAND: : | 


(09 09 C0 00 C0 Cd G9.Gd Gd G0 Gd G0 C9. CD 00.0900 00 00.00.00.00 
ONAN N AANA ⏑ ⏑ ⏑— 
SREP LPL LEEPER EP PEEP PEEPLES 


SS | “QOOCTOODOOOOOOOOO0O0O0DO 
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0.00 00 09 09 09 09 09 09 08 09 0D 0D CCD 0909098 INI IIIS 


3F 88 PUSHR #*M<RO,R1,R2,R3,R4,R5> ; Save registers. 
50 EC BS 00 MOVL.  aCDRPSL_DIA GBUE RSS, RO : Get diagnostic buffer address. 
14A0 1C AS 26 2 MOVC3 #MSCPSK-MXCMDLE ; Copy the entire command to the | 
0 f DRPSL asc “BUF CRS) » : diagnostic buffer. 
3F 6 BA.sC OE BF POPR #*M<RO,R1,R2,R3,R4,R5> ; Restore registers. | 
05 0€91 RSB ; Return. 
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-SBTTL o DUTUSDUMP_ENDMESSAGE = Copy MSCP end message to diagnostic buffer | 


uy UBS DISK/TAPE CLA 
1 © DUTUSDUMP_E 


: DUTUSDUMP_ENDMESSAGE = Copy MSCP end message to diagnostic buffer 

; Functional Description: | 
; Copy the contents of the MSCP end pestege to th Shognest te buffer 
3 whose address is pointed to by CDRPSL_DIAGBUF(R5). This is the MSCP 
; end message returned to the class driver by the remote server. 

$ Inputs: 

; R1 EN 

3 Re END Message address 

: R5 CD 

D 


D Message length 
RP address | 


UTUSDUMP_ENDMESSAGE : : 


8B PUSHR #*M<RO,R1,R2,R3,R4,R5> Save registers. 
50 EC BS 0 4 MOVL a@CDRPSL_DIAGBUF (RSS, RO : Get diagnostic buffer address. 
08 AO 00000000'GF Dd 8 MOVa GPEXESGU_SYSTIME, 8(RO) ; Save ending time. 
10 AO 4 ° CLRL 6(RO) Clear retry counts. 
38 40 30 00 62 51 c MOVCS a (R2), #0, - Copy end message to diagnostic 


but fer zero filling for short 
end messages. 

Restore registers. 

Return. 


MSCPS$K_LEN, = 
MSCP$K_AXCMDLEN+20(RO) 
3F 84 POPR #*°M<RO,R1,R2,R3,R4,R5> 
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DUTUSFILL_MSCP_MSG = Zero fill a partial MSCP message 
Functional Description: 

This routine zero fills an incomplete MSCP message. 
Inputs: 


R1 size of MSCP mesons 
R2 base address of MS(P message 


Outputs: 
ALL registers preserved. 


Be Se Ge Ge Ge Ge Ge Ge Se Ge Ge Ge Se Ge Ge Se Se 
H + 


DUTUSF ILL_MSCP_MSG:: 


5 deal tnd ⏑ de ed dd 
~ 


1 PUSHR #*M<RO,R1,R2,R3,R4,R5> : Save registers. 
Me: 7 SUBL3 1, #MSCPS$K_LEN, RO : Compute fill size. 
ee HY 7 BLEQ 9 : Branch if nothing to fill. 
6241 50 00 6€ 0 2C OEB 74 MOVCS #0, (SP) #0. RO, (R2)CR1] :; Zero fill the message. 
F Be EBC 75 908: POPR #°M<RO,R1,RZ2,R3,R4,R5> 3; Restore registers. 
5 OEBE 6 RSB ; Return 
OEBF 
OEBF 4878 END 


DUTUSUBS 
Symbol table 


SSBASE 
$$8 


ODE 
BUGS_INCONSTATE 
BUGS— I VDSKCONFG 
BUGS — PCLASS 
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2 
2 
x 


> 
* 


+44 

eee 
$8 

: 

ar 


F 10 
DISK/TAPE CLASS DRIVER SUBROUTINES 


we 2B 


1 


| 


ooo 
Wn 


PR POV 


AAAAOAOAQAOOAAQOOAO 
bah Sos 
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RPSL ~BCN 
DRPSL-CANIOCDRP 
DRPSL~CANIOQBL 

ORPS$L-~CANIOQFL 

ORPSL-CAN_RSPID 
D 
D 
D 


CORPSL~SEQNUM 
CORPSL~SNDABTQBL 
CORPS$L~SNDABTOFL 
L“SVAPTE 
eSertt-uce 


v 
CORPSA_PERR 
CORPSQ"NT_PRVMSK 


7 ef 
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Symbol table 187 $65=1 382 — LORIVER. SR RC JDUTUSUBS .MAR; 2 . (48) 
CORPSV_CAND ⸗ DUTUSCANCEL 
CORPSV-CANIO = DUTUSCANCEL_ROT 
CORPSV_-ERLIP = ¢ DUTUSCANCEL ROTWAIT 
CORPSV_HIR ⸗ DUTUSCHECK_ROCANCEL 
COR A ⸗ UTUSCHECK-RWAITCNT 
CORPSV_ = UTUSCLEANOP_ CANCEL 
CORPSW_ABCNT = FFEFFFE DUTUSCREATE_CODB 
CORPSW_B y = FEFFFFD UTUSDATA 
CORPSW_BOF F s —Wi DUTUSDEALLOC_ALL 
CORPSW_CORPSIZE = 000000 UTUSDEALL OC. RSPID_MSG 
CORPSW_ CHAN = FFFFFFC buty DEVTYPE-TAB 
CORPSU-DUTUCNTR s 90 00046 uty DISCONNECT CANCEL 
CORPSW"ENDMSGS1Z z 4 USDODAP 
CORPSW_F UNC = FFFFFFC DUTUSDRAIN CODB_CDRPOQ 
CORPSW"IRP SIZE = FFFFFFA buTUS P_COMMA 
CORPSW_OBCAT = FFFFFFES TUSDUMP” ENDME SSAGE 
CORPSW"ST * e— DUTUSEND CANCEL 
COTSL_AUXSTRUC = 0000005C DUTUSFAICOVER_10D8 8 
COMSORVDEALMEM x 03 DUTUSFAILOVER-UCB 
CRBSL_AUXSTRUC ⸗ 90 DUTUSFILL_MSCP_MSG 8 
CRBSL_DUE TIME = DUTUSF IND DDB ; 
CRBSL_INTD ⸗ DUTUSGET_BEVNAM 8 
CRBSL- TOUTROUT s DUTUSGE T- DEVTYPE 3 
DAP_COUNT = DUTUSINIT_CONN_UCB 03 
oC$"T s DUTUSINIT-MSCP_MSG 0 
DOSEK LENGTH = DUTUSINIT-MSCP-MSG_UNIT 0 
DDBSL_2P_UCB = DUTUSINSERT_RESTARTO 0 
DDBSL_ALCOCLS = DUTUSINTR_ACTION_N 8 
DDBSL- CONL INK s DUTUSINTR_ACTION XFER 3 
DDBSL_ODT z DUTUSKILL- THIS TAREAD 03 
DDBSL_L INK ⸗ DUTUSLINK-SEC_O0cB 8 
DDBSL_ SB = DUTUSLINK-UCB2CDDB 
DDBSL_UCB = DUTUSLOG TVCMD 03 
DDBSS_NAME = DUTUSLOORUP _UCB 03 
DDBST_ NAME = DUTUSL_CDDB-LISTHEAD 
DDTSL-MNTVER = UTUSNEW_UNTT 
DE ANORPAGED 03 DUTUSPOLE FOR UNITS 
DEVSA_2P ⸗ DUTUSPOST~ CORP 
DEVSM_AVL s DUTUSRECORN_LOOKU 
Deven COP = DUTUSRESET _ASCP_MSG 
DEV$V_2P = DUTUSRESTORE CREDIT 
DE VSV~AVL = DUTUSSEND_DRIVER_M 
DEVSvV_MSCP s DUTUSSEND_ DUPLICATE _UNIT 
DIR... ⸗ DUTUSSEND-MSCP_MSG 
DO_ORIG_UCB 03 DUTUSSETUP_CDP-UCB 
DTS_R z buTy HM 4 ~PUAL PATH 
36 DUTUSSEVERTSEC. UCB 
= 
gti Se io 
= i 
DUSTANCEL_FROM_HIRT eeeeeeeey GX TERRINAYED PENDING 
DUSRSTRTQO-HIRT- CORP eeecereey GX DUT TEST_CAN CEL_CDRP 
DUSTEST_HWIRT_ROAITCNT eeeceeeey GX DUTUSTEST- CANCEL DONE 
DUPLICATE SYSTEMID 115 R but ITINIT 
DUTUSAB_DEF _DEVTYPE RG DYNSC_CORP ⸗ 
DUTUSAW” DEF “DE VNAM RG § DYNSC"CD_CDDB = 
DUTUSBUTLD_CANIO_CDRP D4 R DYNSC"CLASSDRV = 
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Symbol table 14=SEP=1984 16:09:21 CDRIVER.SRCJDUTUSUBS MAR; 2 (48) 
MSCPSK_OP_DTACP = 000000 SCSSUNSTALLUCB eeeeeeee x | 
RSCPBE-OP-GTUNT = 000000 SEND ABORTS 263 R 83 | 
mSCPSK-ST-AVLB = 00000004 SS$_CANCEL ⸗ | 
MSCPSK-ST-DRIV = 000000 SS$-REDOFL = As | 
SCPSK-ST_OFFLN = 000000 $S$_NORMAL = 01 | 
MSCPSK-STSUCC = 000000 $$$ -OPINCOMPL s 4 | 
MSCPSL_CMD_REF = 000000 SS$°VOLINV = 4 | 
RSCPSL-MEDIA. ID = 0000001C SVCORP 68 | 
MSCPSL_OUT REF = 000000 SVERLIP 
RSCPSA_CF_ATIN = 000000 SvPOT 64 
MSCPSM_CF MISC = 000000 SVR $C 
MSCPSM_CF-THIS = 0000001 SVRET 
MSCPSM~EU-CTYPE 2 200006 0 SVSTATUS 54 
MSCPSM—EU-DESIG = 000¢ SVUCB 60 
RSCPSM_EU-SUBC = 000000F SYS$GL_BOOTUCB teneeree =X 03 
MSCPSM_MD_NXUNT = 000 g SYSSGL_OPRMBX 22222222 x 8 05 
MSCPSM-SHADOW = 00008000 UCBSB_BEVCLASS = 000000409 
SCPSM_ST_MASK = 0000001F UCBSB-DEVTYPE = 00000041 
msCPSS_EU-DESIG = 90000003 CBSB-F IPL = 00 
MSCPSS_ATYP_D = 00 UCBSL-2P_ALTUCB = 0000004 
SCPSS_RTYP-D1 = 00000005 UCBSL—eP-CDD = 000000¢ 
CPSS-ST_MASK = 00000005 CBSL~2P-DDB = 00000040 
MSCP$V-EUDESIG = 0000000¢ UCBSL~2P-LINK = * 
RSCPSV_ATYP_D = 00000016 UCBSL-CDDB = 9000008¢ 
RSCPSV_ATYP-D1 = 00000016 UCBSL-CDDB_LINK s 0C4 
SCP$V~SC_NOVOL = 0000000 UCBSL-CDT = 000000¢8 
CP$V_ SHADOW = 0000000F UCBSL_CRB = 000 $ 4 
MSCPSV"ST_MASK = 90000000 UCBSL-DDB = 00000028 
SCPSW_MODIFIER = 0000000A UCBSL-D = 00000088 
MSCPSW~STATUS : 200000 A UCBSL-DEVCHAR = 000000 
MSCPSU"UNIT = 00000004 UCBSL-DEVCHARZ = 0000003¢ 
MSCPSW_UNT_FLGS = 000000 Oe UCBSL_DPC = 4 9C 
MSCP_BOF 0000009¢ UCBSL—10GFL = 0000004¢ 
MSGS” DUPUNI TNO = 0000005 UCBSL-LINK = 0000005 
MTX$Q_OWNCNT = 00000 200 UCBSL_MAXBCNT = 9 ° 8 
00000155 ROS UCBSL-MAXBLOCK = 00000080 
_PIO = 00000060 UCBSL-MEDIA_ID = 9000008¢ 
PDTSL-ALLOCMSG = 00000014 UCBSL-ORB 2 1¢ 
PDTS$L—DEALLOMSG = 00000020 UCBSL POT = B4 
POTSL_MAXBCN = 0000008C UCBSL_RECORD = 0 
PDTSL_RCHMSGBUF = 00000044 UCBSL-STS s 64 
POTSL-RCLMSGBUF : 20000048 UCBSM_DELETEUCB = 0001 
PDTS$L-SNOCNTMSG = 000000 UCBSM_MSCP_FLOVR = 
= 00000064 UCBSM-MSCP"INITIN = 
POLL _COWN_BROKE 00000280 R 0 UCBSM-MSCP-WAI TBM : 
POLL “LOOP 10000186 R UCBSA_ONL IRE : 1 
PRS_TPL = 000000 UCBSQ-UNIT_ID : 
PRS-SIRR = 0000001 UCBSS-UNIT~1D : 
RECONN EXIT DOO0RC7E R 0 UCBSV-DELETEUCB = | 
RESTART_POLL 00000223 R UCBSV-MSCP_FLOVR = | 
SAVABS.~. = 00000074 UCBSV-MSCP-INITI s 
ob8 = 00000054 UCBSV-MSCP-RNTVE 2 8 
SCSSALLOC_RSPID eeneeeee x UCBSV-MSCP~PKACK s C 
SCSSDEALL-RSPID teeeeeee x UCBSV-RSCP"WAI TBM = A 
SCSSLKP_RDTCDRP 4 UCBSV"ONL IRE 2 4 
SCSSLKP-RDTWAIT teeeeere x UCBSV-POWER = 5 | 
SCSSRECVL_RSPID eeneeeee x UCBSV~TU_SEQNOP = | 
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PSECT name Allocation PSECT No. Attributes 
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Ty NOSHR x 


33 -DUTU_DATA_00 
$$$115 DRIVER BF 
$$$ oT EPL ATE .UCB_00 

TEMPLATE ORB 


$$$220-DEVTYPE_TABCE_ 0 
$$$220_DEVTYPE_TABLE_0O 00 
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DEF _DEVNAM TABLE 0 
$$$220 DEF DEVTYPE TABLE ; 
0 


+ 
; Performance indicators H 


Phase Page faults CPU Time Elapsed Time 


Initialization 9 0:00:00 
— processing :00: 
S$ 


vo 


ss 

Symbol table output : 

Psect synopsis output o °: 
141 


Cross-reference output : 3: 
Assembler run totals :00: 

Th rking set Limit was 2850 pages. 

23 583 bytes (455 pages) of 0 pet memory were used to buffer fhe intermediate code: 

There were 180 pages of symbol table space of jecetes to hold 3308 non-local and 162 local symbols. 
4878 source lines were read in Pass 1, produc tng object records in Pass 2. 

73 pages of virtual memory were used to define 68 macros. 
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Macro re name Macros defined 
FSV 083 {pout B.MLB;1 19 
fare MB ietaRcet he;2 12 
8 best Libraries) 5 


3624 GETS were *squired to define 59 macros. 
There were no errors, warnings or information messages. 
MACRO/L1IS=L1S$:DUTUSUBS/0BJ=0BJ$:DUTUSUBS MSRC$:DUTUSUBS/UPDATE=(ENHS : DUTUSUBS) +E XECML$/L1B+L1B$:DUTULIB/LIB 
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